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0O158 


4^500000 


X 


CS^RR 


MiEl 


46^ 


OP 


00159 


6^300160 




BSE 


Ee02 


466 


OP 


0015A 


321EO003 


N 


Li*i#Rl 


MBDE*3jR7 


467 


OP 


0015B 


2llOftOFF 


A 


CI#Rl 


XfFF» 


46» 


OP 


ooisc 


6^400160 




BANZ 


EBD2 


469 


OP 


0015D 


2220001? 


A 


LI#R? 


18 


470 


OP 


0015E 


22100000 


N 


LliRl 


MJEO 


471 


OP 


0015F 


04loo?5E 




CALljl 


FPTE©D 


47? 




02 


00160 


eeD2 


EQU 


i 


47S 


OP 


00160 


33000000 


X 


MTWjO 


ANJSBLK 


474 


OP 


OOI61 


6^3001^3 




BEZ 


♦*2 



PRINT IST(NEXT) 138 CNARS 

UPDATE BUFFER ADDRESS 

NSi REMAININQ chars in RgQ 

WRITE 8UTPUT RfC»RO 
REST8RE BUFFER ADDRESS 
CHECK BREAK FLAQ 

d6 we need Te un«l9ck 

YES 

CBMPRESSED INPUT 



GET abngrmal ceDi 

TEST F8R E8D 

reO F8UND 

EBF ENCOUNTERED 

N© 



DSINQ A HEX DUMP 
N6 

MEXDUMP FR9M A DIVlCE 
N8 

TEST FeR DE8D 8PTT8N 

VES 

MESSAGE SIZE 

DC8 ADDRESS 

VES. INDICATE ••E«^D», ENC8UNDeD 

TEST IF BL8CKINQ FSR ANS 

N© 



3i 



Nnl 



171 

47fi 
476 
477 
478 
479 

480 
481 

^f €5 !•' 

483 
484 
48?? 
486 
487 
488 
489 
49n 
491 
49? 
493 
494 
49R 
496 
497 
498 
499 

son 

?501 
BOP 
BC3 
BC4 

B06 
S07 
R08 
R09 
?5lO 
511 



49 rEP 08j t75 

0? ooUg 04ir.nooo X 

n» oni63 20600001 a 

n? 00164 21600002 A 

(yp 00165 6«3onlAl 

OP 00166 28500003 A 

0? 00167 315EO00O X 

OP 00168 6«300367 

OP 00169 315E000S N 

OP 00l6A 69300171 

OP 0016B iSoroOOO X 

OP 0016C 38800003 A 

OP 0016D 6AB004BE 

OP OOI6E 38300008 A 

OP OOI6F 38AtoOOO X 

OP 00170 65?30OP02 

02 00171 

OP 00171 330EnOOO X 

OP 00172 6S»30nlA3 

OP 00173 381EOO03 N 

OP OOI74 2UonoFF A 

OP 00175 6i400l7A 

OP 00176 38IE0OOO X 

OP 00177 3S>li:oOCO X 

OP 00178 2890O001 N 

0? 00179 6S00O17B 

02 0Q17A 

OP 0017A 0^100227 

0? 0017B 21300006 A 

0? 0017C 6830020A 

OP 0017D 6«00ft06B 

02 00l7i 



OP 
OP 
0? 
OP 



0017E 
0017F 
OOI8O 

oolsi 

COI8P 



21300007 A 
693onlCl 
33000001 N 
E930O008 A 
6AB00OOO X 



E903 



feD4 



E8F1 



CAL1#1 

AI«R6 

CI>R6 

BE 

LI#R?5 

CW#Rs 

BE 

CI^#R5 

BNE 

STWjRO 
LWiSRi 

BALjSR4 

LN#R3 
Ll^iSR3 
BNE2 
FOU 

MTWjO 
BNEZ 
LN#Rl 
CIjRI 

BAZ 
LN#Ri 

STW#Ri 

LI#SR^ 

B 

FQU 
CALIM 
CI*R3 
BE 

B 

FQU 
CI#R3 

BNE 
MTNjo 

bnez 

BAl#Sr4 



RDWRT 
WRTFPTjR7 
1 
2 

ESFS 
3 

C§DE#R7 
R0WRTC8 
T8ARG-f5#«7 
£803 

RFCSI2E#R7 
R3 

CSMPRrSS 
SRI 

ieERR#R7 
EeERR 
s 

SELECTjR7 
ESF5*2 
MeDE*3jR7 
XiFF» 

i:8D4 

RSSAVE*R7 
SFLECT#R7 
SELECT*1 

ft 

wrsF 

6 

RETURN 
RFAOl 

« 

7 

EBR 

ANSBUK^l 
#SR1 
QFTPAGE 



WRITE LAST BieCK 
TEST FBR OeUbLE E©D 



33 



INPUT C8MPRESSED WANTED 

YES 

eUTPUT CaMPRESSEO WANTED 

NB 

INDICATE N9 M9rE TnPUT 

8UTPUT LAST REC8ND 

DID 18 ERR8R 0CCUR 
YES 

ANY MSRE RECeRD SFLECT18NS 
YES 

DE9D 8PTI9N 

N8 

INITIALIZE FOR RCC8R0 9ELECTI8N 

INITIALIZE SELECT TaBLE INDEX 



WRITE E8D 

ESF ENC8UNTERED 

YES 



TEST F8R L8ST DATa 



IQN8RE IF ReC SlZg; QIVeN F8R ANs 
GET AddTTI9nAl BUFFER PAtJE 



Nol 



SIP 
B13 
514 

517 

SIR 

519 
5P0 
5S1 

52? 
523 

5a<> 

525 

5?ft 

527 

528 
529 
530 
531 
53? 
533 
534 
535 
53ft 
537 
538 
539 

540 
541 
542 
543 
544 
545 
54#, 
547 
54A 



REP 08* 
P 00183 
00184 
00185 
00186 
00187 
00188 
00189 
02 

cnl8A 

0018B 
0018C 

02 
0018D 
0018E 
OOISF 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
0019A 
0019B 
0019C 
0019D 
0019E 
0019F 
OOlAO 
OOlAl 
001A2 
0nlA3 
001A4 
001A5 



t 75 

21800000 A CI#8R1 

69300180 BNE 

SJilCnoOO X MTWjI 

3^000000 X MTW#o 

6»30ftl8A Btl 

32F0O6B3 LW#D4 

6i00n20F B 

0018A E8FU FQU 

28100021 A L1jRi 

6AB00OOO X BAL#SR4 

6800020A B 

OOI8U E:0F2 fgu 

3S2I0005 N LNiRg 

S^SOOOOB A SLS^SRl 

3020OQ08 A AW^iRg 

2210O00F A Ll^Rt 

4«!*lonCOO X AKD#Ri 

21100002 A CI#Rt 

6»200l9D BIE 

388fO005 N LInjSRi 

2I8O7FFF A CliSRi 

6S»lonl9A BL 

2^100026 A LliRl 

6AB00OOO X BAt#SR4 

6«00nP0A B 

21207FFF A F0F3 Cl^Rp 

6^100190 BL 

2S207FFF A LI^RP 

3&2FO005 N E:eF4 STW#Rp 

3S2En000 X STWjRg 

0^100233 CALl-il 

6*000068 B 

330^0000 ^ F8F5 MTW#o 

6830OP0A BEZ 

3«23eO00O X Li^#R3 

B13EO009 A C^sRH 

6^1oolBD BL 



RDWRT 


E6F2 
QRANCNT 
C6PYSK 
$<^3 
■X' 07000000* 

RFTURN'l 

S 

33 

ERRSR 

RFTURN 

t 

RDFPT4S#R7 

11 

SRI 

XfF» 

M|EI 

2 

EftF4 

RDFPT*5jR7 

Xf7FFFt 

EeF3 

38 

ERR©R 

RFTURN 

Xf7FFFf 

EeF4 

Xf7FFFf 

RDFPT*SiR7 

BUFSIZEjR7 

PrEC 

RIAOl 

SFLECTjR7 

RrTURN 

RFCNUMjR7 

#SR2jR7 

EeF7 



34 



DID ne get smt ^aQes 

YES 

SET ABeRT FLAG 

TEST IF CaPYALL 

iSiB 

SET ABN CSDE 



ERRBR.ADDlTieNAL PAGE Hdl AVAILAJ^JLE 



BLO BUFFER SUE 
CONVERT PAGES TB BYTES 
NEW BUFFER SUE 

GET ASN FRBM DCB 
IS IT DEVICE BR AtsiS 
N8 

YES-BUFFER CAN NGt BE LARGER 

Than i5 bits 

ERRBR.RECdRD SUE LARGER THAN 15 BIT 



IF BUFFFR LARGER THAN i5 BITS 
SET AT 15 BITS 



P8SITIBN BACK ©Nl RECBrD 

ANY RS 9PTIBNS 

NB 

GET N8. ©F LAST ^tt 

C&MPARE WITH X VALUE 

rRRBR.FNTIRE SELECTIBN mi IN FjLE 



Nnl 



17149 REP 08j 


5549 


OP 


001A6 


B50 


0? 


001A7 


SB1 


0? 


001A8 


SSP 


0? 


001A9 


ss:^ 


0? 


OOlAA 


S54 


OP 


OOlAB 


R5«5 


OP 


OOlAC 


R55ft 


OP 


OOlAD 


RB7 


OP 


OOlAE 


558 


OP 


OOlAF 


B59 


OP 


ooieo 


R6n 


OP 


00181 


S6l 


OP 


OOlBp 


!56? 


OP 


OOI83 


Bfe3 


OP 


OOIB4 


564 


OP 


OOlBS 


565 


OP 


OOIB6 


566 




02 


567 


OP 


001B7 


56S 


OP 


GOI88 


569 


OP 


001B9 


570 


OP 


OOlBA 


571 


OP 


COIB8 


57? 


OP 


OOlBC 


57:? 


OP 


OOlBO 


574 


OP 


OOlBE 


575 


OP 


onlBF 


576 


OP 


OOlCo 


577 






578 


OP 


COlCl 


579 


OP 


001C8 


580 


OP 


Q01C3 


581 


OP 


OOIC4 


58P 


OP 


onlCs 


583 


OP 


001C6 


584 


OP 


001C7 


585 







»75 

2U9onooi A 
8l3r.noo9 A 

6«10niB3 
2«J5oo006 A 

315En005 N 
6®300lB3 
28200013 A 
22100000 N 
3300n000 ^ 
6»10nl82 
2220O012 A 
22IOOQOO N 
O^lOOPSE 
33^rnOOO >^ 
6^30OlB7 
0^10nP27 
6»00nP0A 

OCIB"^ 

0^l0OPP7 
0^100233 
6»0OOP0A 
2U90O001 A 
Bl3En009 A 
68IOOOA5 

28100029 A 
6AB00OOO X 
20900001 A 
6«00OlB3 

2l3onoiC A 

6»3ooP03 

2830OP2C 

22400002 A 
6ABo(^li:6 

O^lOOPPS 
E8000008 A 



r9F6 
E6F8 
EeF9 



E»r7 



# 
E0R 



AIjSRP 
CW#R3 
BGE 
LI#R5 

CW#R5 

BE 

LljRp 

Ll#Rl 

MTWiO 

BLZ 

LI#RP 

Ll#Rl 

CALIjI 

BKEZ 

CALl#l 

B 

ECU 

CALlji 

CALlii 

B 

AliSRp 

CWjR3 

BGE 

LliRl 

BAL*SR4 

AI#SR9 

B 

CUR3 

BNE 

Ll#R3 

LI#R4 

BALiSR4 

CALIj 1 

B 



RDUIRT 



♦SR2#R7 

EBF6 
6 

T»ARCi*B#R7 
EftF6 

19 

MfUC 
JlJIT 

t*3 
18 

MtLO 
FFTE©D 
SEUECTjR7 
•♦3 

WE8F 
RETURN 

PREC 

RFTURNi 

1 

tSR2#R7 

READa 

ERROR 

1 

E8F6 

X»lCf 

I6^RRl 
E8CV»L2 

2 

ULBLCWK 

ETCVOL 
#SRl 



P6SITI0N re Y vAlrUE 
LAST RFC Net VS ^ VALUE 
WITHIN FILE 

D81NQ A HEX DUMP 

YES • D8NfT REPEAT MESSAGE 



8N-LINF 

YES 

BATCH • D8N'T PRINT NL CHAR 

PRINT fE8D ENCeUNTEREDi 
DECREMENT N8t 8F RS ePTl^^NS 

N8 M8RE»NRITE E8F 



WRITE E8F 

BACKSPACE ONE RECSRDf 

P8SITI8N T8 X VALUE 
TEST IF IN FILE 
YES • RE-READ FILE 
ERROR • N8T IN FILE 

P8SITI8N Te Y VALUE 
TRY NEXT RS PAIR 

TEST FeR END 8F RfEL 



TEST F8R TRAILER LABEL 
ADVANCE T8 NEXT INPUT TAPE REEL 
C8NTINUE T8 REAP 



3^ 



Moi 



17U9 J 


?EP 08j 


»75 








RDWRT 




S8A 


OP 


QOiCg 


7810000A 


A 


WRTABN 


LBjRi 


SR3 


SET ABN0RMAL CQDI 


587 


OP 


Q01C9 


auonoic 


A 




CIjRi 


XflCi 


TEST F0R END 8F ^ECL 


B8« 


0? 


OOlCA 


6^30OP0P 






BNE 


E8ERR 




??89 


OP 


OOlCB 


3«?1EOOOO 


X 




LWiRl 


TeARGjR7 




590 


OP 


ooxcc 


6S?300lCE 






BKU 


t'^2 


PCL DEVICE. 


B91 


0? 


OOlCD 


32iEnooo 


X 




LNjRI 


DEV*eUTiR7 


SVSTEH eUTPUT DEVlCEt 


S9P 


OP 


OOlCE 


2U0O004 


A 




CIjRi 


4 


eUTPUT IB LAiELEP TAPE 


593 


OP 


OOlCF 


6»300lDP 






BKE 


i*3 


N» 


59^ 


OP 


OOlDO 


208FrFFF 


A 




AlaSRl 


• 1 


BACK UP Te NRITE CAL 


59!5 


OP 


OOlDl 


6800niD# 






B 


♦ ♦3 




596 


OP 


001D2 


0*>1002P7 






CALljl 


WESF 


DeuBtr P©F 


597 


OP 


001D3 


0^l0nPP7 






CAllji 


wieF 


yNRITE E8D 


598 


OP 


001D4 


Q^longpA 






CALl^l 


EeCVOL 


CL8SE CURRENT SUTPUT V»LUMg: 


S99 


op 


001D5 


caooncog 


A 




B 


♦SRl 


C6NTINUE READING AND WRITING 


600 
601 


OP 


00iD6 


221COC1B 


A 


DEVERR 


Ll#Rt 


P7 


INVALID RS SPEC F9R DEVICE 


60? 


OP 


00107 


68000204 






B 


leERRl*! 


REPSRT ^RReR 


603 


OP 


OOlDS 


7810O00A 


A 


EIERR 


LBjRl 


SR3 


TEST FftR lAST REE-l 


604 


OP 


00i09 


2*100056 


A 




CliRl 


XfS6t 




60B 


OP 


0010a 


6S»30Ol0F 






BKE 


ieERR3 


N8 • S©ME 9THER ERRgR 


606 


OP 


OOlOB 


28100003 


A 




LliRl 


3 




607 


OP 


ooioc 


311EOO0B 


N 




CWiRi 


TeARQ*5#R7 


CeMPRESSED 9UTPUT 


6oa 


OP 


OOlOD 


6^300073 






BNE 


READ14 


NS • WRITE LAST REC9RD (FT) 


609 


OP 


ooiDg: 


6800n3CF 






B 


READS! 


WRITE CSMPRESSeD REC0RD 


610 


OP 


OOlDF 


2ll0n04P 


A 


leERRS 


CliRt 


Xf42» 




611 


OP 


OOlEQ 


6t3onP03 






BNE 


laERRl 




61? 


OP 


OOlEl 


28F0OO0O 


A 




LI#D4 







613 


OP 


001E2 


2210O030 


A 




LliRl 


Xi30t 




614 


OP 


001E3 


^Slonoos 


K 




CSjRi 


mjeUr 




61R 


OP 


001E4 


6«^30OP24 






BE 


RETURNS 


END eF RANDOM flit 


616 


OP 


OOlEB 


6800nP03 






B 


IBERRl 




617 










« 








6ia 


op 


001E6 


38lEnooo 


X 


UL8LCHK 


LWiRl 


DEVICriR7 




619 


OP 


C01E7 


6930O1E9 






BNEZ 


^42 


PCL DEVICE. 


620 


OP 


QOlES 


381EOO0O 


X 




H»*#Ri 


DEV$lNjR7 


SYSTEM INPUT DEVICE. 


621 


OP 


001E9 


21100004 


A 




CI^Rl 


4 


IS INPUT FR6M LT 


6?? 


OP 


OOlEA 


6830O1E0 






BE 


i43 


YES 



36 



Mfil 



17U9 

624 
6S>b; 

6?ft 
6?7 

(B) c rS 

630 
631 
6.1? 

633 
634 
63B 
63^ 
637 
63g 
639 
640 
641 
64J9 
643 
644 
645 
646 
647 

6411 
649 

650 
6Sl 
65p 

653 

6S4 
6B5 
6B6 
6B7 
6B8 
659 



«?EP QBm 


175 






)? onlEB 


21100007 


A 


CliRl 


)? OOlEC 


E?3onooB 


A 


BKE 


)P OOlED 


22800068 




LIjSRi 


)?> OOlEE 


381E0000 


X 


ln#Ri 


IP OOlEF 


6y3C0lFl 




BNE^: 


5p OOIFO 


38 ir 0000 


X 


LW,Ri 


)p coin 


21100004 


A 


CliRl 


IP 001F2 


6i3oolF5 




BE 


IP 001F3 


2U0O007 


A 


CliRl 


)P 001F4 


E930O00B 


A 


BKE 


>P OOIF5 


3glEn004 


N 


LWjRl 


)P O0IF6 


32180000 


A 


LWiRl 


)P OOlF? 


3II006AC 




CW#Rl 


5P OOlFg 


eaSonooB 


A 


BE 


)P Q01F9 


02200030 


A 


LCI 


)P OOlFA 


2^160000 


A 


LM#Rl 


)? OOtFB 


2»ll00FA 


N 


STMjRi 


)? OOlFC 


321EO004 


N 


LNiRi 


5P OOlFD 


3830O007 


A 


LW#R3 


>P QOlFE 


3W30O004 


A 


AW#R3 


)P OOlFF 


3SI600FA 


N 


STW#R1 


!P 00200 


O^IEOOFA 


N 


CALIjI 


IP 00201 


e^OOOQOB 


A 


B 


02 


00p02 


E&ERR EQU 


)p oosoa 


3Si0EO000 


X 


STW#Ro 


5P 00203 


22100000 


A leSRRl LIjRi 


)P 00204 


33100000 


X 


MTWji 


)P 00205 


3f000000 


X 


MTW#o 


)P 00206 


60300POS 




BEZ 


)p ooao7 


32FonOOA 


A 


LW,D4 


5P 00208 


6a00OP0F 




B 


)P Q0209 


6AB00OOO 


X 


BAL#SR 



)P 0020A 
)? 0020B 
)? OO20C 



321E0003 N 
2IIOOOFF A 
6840OP0E 



♦ 
RETURN 



Cl#R1 
BAZ 



RDWRT 
7 

tSR4 
READl 

TeARQjR7 

DrVi8UT#R7 
4 

7 

»SR4 

RDFPT441R7 

O^Rl 

pXf 00404040' 

#SR4 

3 

0jR3 

ieBUF4250jR7 

RDFPT*4#R7 

R7 

R4 

ie8UF*25o*R3 

I»BUF4250*R7 

#SR4 

TeSWT#R7 



QRANCNT 

CePYSK 

i<^3 

SR3 

RETURNl 

ERRdR 

MftDE*3jR7 
XiFF» 

• 4>2 



37 



INPUT FR&M ANS TAPE 

RETURN tec T0 RESUME READ 

PCL DEVICE, 

SYSTEM 9UTPUT DEVICEt 

IS BUTPUT Te LT 

YES 

eUTPUT T© ANS TAPE 

NB 

ADDRESS BF READ BUFFER 

WAS A TRAILER LAbPL READ 
NB 

MeVE FPT T8 DATA AREA 



C8MPUTE ADR »F LABEL ENTRY 

ENTER BUFFER ADDI^FSS 

DB CLBSE BR CLBSE VBLUmE 



CLEAR DEFINED QUTPUT 

FLAG 1/8 ERR8R 
SET AB9RT FLAG 
TEST IF CBPYALL 

Ne 

Set err/abn cbde 



NAS 
N8 



DE8D SPECIFIED 



Nni 



17 

660 

66P 
66:^ 

664 

666 
667 
66» 
669 
670 
671 
67? 
673 
674 
67!5 
676 
677 
67g 
679 
680 
6«1 
68? 
6i3 
684 
68B 

ft 8 ft 

687 

ft 88 

15 8 ?> 

690 
69 1 
69? 
693 
694 

696 



849 REP 08j 



OP 

0? 
0? 
0? 

n? 

OP 
0? 

0? 
0? 
0? 
0? 
0? 
0? 
0? 

c? 

OP 
OP 
OP 

op 

OP 
CI? 
OP 
OP 

OP 
OP 

OP 
OP 
OP 
OP 
0? 
OP 
OP 
0? 



OOSoE 
02 
OO^QP' 
OOP 10 
00211 
0021P 
00213 
00214 
00215 
Q02l6 
00217 
00218 
00219 
0021A 
0021B 
OOPlC 
002lD 
002lE 
0021F 

002P0 
00221 
002P2 
00223 
00224 
00225 
00226 

00227 
002P8 
00229 
002PA 
002P8 
002PC 
0022D 
0022E 



»75 
0^l0n?P7 
22F0O00O A 
0020*^ 

2^30OP2£ 
22400003 A 
6AB0O1E6 
33000000 X 
6^300216 
2lD0Ofl0l A 
6320OP24 
38110000 X 
69300P19 
321^0000 X 
2il0O003 A 
6S30OP1D 
2il0OO0S A 
6^300224 
32100000 X 
31100684 
6»400P24 



3^100001 N 

3110O6B5 

69400224 

0^l0O26A 

0220O07O 

8A50OO07 



prruRNi 



A 
A 

E800000B A 

0800O000 N 
03000COO X 
OOOOOOOO A 

0300O000 N 
OOOOOOOO A 
03000000 N 
4Q00O00O A 
159000000 N 



# DSNfT 



RI?TURN2 

« 
W£0F 



CALljl 
Lli»D4 

rQU 

LI#R3 

LI#R4 

BALjSr4 

MTWjO 

BNEZ 

CImDp 

Sir 

BN£Z 
LWjRi 

CliRl 

BE 

CliRl 

BNE 
LWiRl 

BAZ 
RFlEASp 
LW,Rt 

CW#Rt 

BANZ 

CAtlji 

LCI 

PIM#R!? 

B 



ROWRT 

wr9F 



ciasE? 

3 

ulblcnk 

6RANCNT 
•+3 
1 

RFTURN2 
TeARG#R7 
A^2 

DrV»9UT#R7 
3 

S*3 
5 

RFTURN2 
MIE0 

■X»00?00000» 
RFTURN2 
IF FUN IS INBUt 
MIE9*1 

■X» 00080000' 
RETURN2 
FPTREL 
7 

#R7 
♦SR4 



YES • WRITE EeF 



TEST F8R Trailer label 
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1? Q02F8 


02200001 


A 


LN#R? 


•Rl 


914 ( 


)? 002F9 


20200003 


A 


AliR? 


3 


91R ( 


)P OOHFA 


2520007E 


A 


SLS^R? 


• ? 


91«. ( 


3? 002F8 


3SI200GOO 


X 


STl^jR? 


BLKSIZE 


917 ( 


)P 002FC 


20100001 


A 


AliRl 


1 


918 ( 


3;> 002FD 


3S100000 


X 


RTNjRl 


UNBADR 



4^ 



N8 



BYTF DfSP 9F BLK HEADER 
SIZE 

CaNVERT BLK SIZE T© BINARY 



CeMPUTE N8t NDS In 8L0CK 
SAVE BL9CK SlZE 



ADR eF FIRST REC HEADER 

BYTE DTSP 8F RgC HEADER 
SIZE 

C8NVERT REC SIZE T© BIMARY 



PUT SIZE IN WRITE FPT 
PUT i^RlTE ADR IN FPT 
CeMPUTE Net WDS IN RIC8RD 

ARE WE AT Be« aF BUQCK 

NS 

GET BL9CK SIZE 

C8MPUTF NB, WDS IN BLecK 

ADR 9F FIRST REC HEADER 



Hnl 17Uf SEP OS' »75 ROWRT 4^ 

919 OP 002rE 0830noOl A UNBVg LMjR3 #Rl QET REC SIZe 

920 «;? GOSFF 6«0oni?EF B UN803 



Nni 



17! 


49 5 


?EP 08j 


t75 








ROWRT 




9^1 












PA6£ 






92P 


0? 


00300 


3SSI0009 


N 


KCCHK 


LW4RR 


T©ARG*9#R7 




92:^ 


0? 


00301 


3lSno6B6 






CW4R5 


•X'OOTOOOOOt 


CR SPFCIFIED 


9?4 


0? 


00302 


E94onooB 


A 




BANZ 


#SR4 


YES-EXIT 


9?5 


0? 


00303 


3glEnooo 


X 




L^jRl 


DFVICE#R7 




9?ft 


0? 


00304 


2Uono08 


A 




CliRl 


8 


INPUT FRSM TERMINAL 


927 


0? 


00305 


6^300308 






BE 


NCC4 


YES 


92« 


0? 


00306 


21520000 


A 




CIjRS 


Xf 20000 » 


NC 8PTI6N PRESENT 


929 


c? 


00307 


E*40000B 


A 




BAZ 


#SR4 


N9.EXIT 


930 


0? 


00308 


385^0004 


Ni 


NCC4 


LWjRf? 


WRTFPT*4*R7 


GET leCATISN 9F aUTPUT BUFFER 


931 


0? 


00309 


2030O000 


A 


NCCHKX 


Al«R3 





MULL RECBRD 


93? 


n? 


0030A 


E»3cnOOB 


A 




BEZ 


«SR4 


YES 


933 


a? 


0030B 


gosrrFFF 


A 




AI1R3 


w1 




934 


0? 


003oC 


F8l6n00B 


A 




LBjRt 


#R5#R3 


GET LAST BYTE SF REC0RD 


93R 


0? 


Q030D 


21100015 


A 




CIjRl 


Xfl5? 


TEST IF CARRIAGE RETURN 


93ft 


a? 


C03oE 


6*300311 






BE 


NCC2 


YES 


937 


0? 


003oF 


2110000D 


A 




CI#Rl 


XfQOt 




938 


0? 


00310 


6^300313 






BNiE 


NCCl 




939 


a? 


003ll 


28100040 


A 


KCC2 


Ll#Rl 


f t 




940 


t\p 


00312 


F$160005 


A 




STB#Ri 


*R5*R3 


ST9RE BLANK «>VeR CR 


941 


c\? 


00313 


20300001 


A 


NCCl 


AI#R3 


1 


REST9RE RECQRO SIZE 


94? 
943 
944 


0? 


00314 


ESOOOOOB 


A 


^ 


B 


#SR4 


EXIT 


0? 


00315 


38iroOO!5 


N 


KCS 


Li^jRl 


WRTFRT*5jR7 


REC9RD SIZE 


9415 


Op 


00316 


21100050 


A 




CI#Rl 


80 


IS REC8RD BCD 


94^ 


0? 


00317 


6«2oo31C 






BLE 


NCSl 


YES 


947 


0? 


00318 


3^0E001B 


N 




STW#RO 


ISBUF*27jR7 


ZER© BINARY SEQ FiELD 


948 


0? 


00319 


3&0EO01C 


N 




STW#R0 


ieBUF4.28jiR7 




949 


0? 


003lA 


3^0E001D 


N 




STWjRo 


I»BUF*29jR7 




950 


0? 


G03lB 


6*00O0D6 






B 


WRITE? 




9Bl 


0? 


003lC 


3810O6AB 




NCSl 


LW#Ri 


if f 


BLANK 8UT SEQUENCE FIELD 


9B? 


0? 


0031D 


3SlEaol2 


N 




STWjRl 


iaBUF*l8jR7 




9B3 


0? 


003lE 


31SilEn0l3 


N 




STWiRl 


I68UF*19*R7 




954 


c? 


003lF 


6<^00O0D6 






B 


WRITE? 




95R 










# 








95(6, 


0? 


00320 


6A8or>!5DE 




C8 


BALjSR4 


SFQ9UT 


C8NSTRUCT seQuenc:e INFe 


957 


OP 


00321 


S^lEoOOS 


N 




LWiRi 


WRTFPT*5#R7 





47 



Hoi 



17J 


49 5 


?EP 08# 


»75 








ROWRT 




9SR 


OP 


0n3P2 


6930ft3P7 






8N£Z 


cssi 






959 


a? 


00323 


352enD04 


N 




LWiR2 


RDFPT*4#1 


R7 




960 


OP 


00324 


32100040 


A 




LNjRt 


Xi40» 




ADJUSTMENT FSR ZERe 11 


961 


OP 


003PS 


7Si4nooo 


A 




STBiRi 


oiRa 






96? 


OP 


003P6 


6«00r!32B 






B 


CS2 






963 




02 


0032*5^ 




CStl 


rQU 


« 






964 


OP 


003P7 


2llono5o 


A 




CI#Rt 


So 






96B 


OP 


003P8 


6820O32B 






BU 


CS2 




BCD 


966 


OP 


003P9 


6A8on60S 






BAL#SR4 


SFQeUTB 




SEQUENCE BINARY 


967 


OP 


Q03PA 


6«oonoD6 






B 


WRiTEp 




G6 70 WRITE 


96g 


OP 


003PB 


32linooo 


X 


csa 


LW#R1 


CAROSFQji 


R7 


PUT SEQUENCE INFO 


969 


OP 


003PC 


3SlEftOl2 


N 




STW#Ri 


IBBUF418 


jR7 




97n 


OP 


0032D 


38ii:nQ0i 


N 




LWjRi 


CAROSFO* 


ljR7 




971 


Op 


003PE 


3^irnoi3 


H 




STW#Ri 


ieBUF4.i9 


iiR7 




97P 


OP 


003PF 


282000550 


A 




LliR? 


80 




SIZE 8F BCD RECBR 


97:? 


OP 


00330 


352En005 


N 




STWjRp 


WRTFPT*5 


jR7 




974 


OP 


00331 


6*000006 






B 


WRITE? 






97K 










# 










976 


op 


00332 


6A800S9^ 




LN 


BALjSR4 


LINENUM 




CONSTRUCT WRITE ^ 


977 


OP 


00333 


6^80000^ 






BCS#A 


WRITE? 




QB T9 WRITE 


97« 
979 

98n 


CP 


00334 


6»00OPOA 






B 


RFTURN 




ERRBR 




02 


0033** 




SEQIO 


FOU 


• •1 






981 


OP 


00335 


6800O31S 






B 


NCS 




NCS 


98? 


0? 


00336 


6SoonoD6 






B 


WRITE? 




NLN 


983 


OP 


00337 


6«>000320 






B 


CS 




CS 


984 


OP 


00338 


6^000332 






B 


LK 




IN 


98R 


OP 


00339 


6*J0OO3A6 




SEaiD2 


B 


RFAD20 




NBNE 


986 


OP 


0033A 


6800n3AC 






B 


RFAD21 




NCS 


987 


OP 


0033B 


6B00O3A6 






B 


READ20 




NLN 


988 


OP 


0n33C 


6a00O39F 






B 


RFA018 




CS 


989 


OP 


0033D 


6800O3BB 






B 


RFAOlB 




LN 



4* 



RECBRD 



IN euTPUT BUFFLR 



Nnl 
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990 
991 
99? 

^ !!? ^ 

994 

99R 

997 

99A 
999 

1000 
1001 

too? 

1003 
1004 
lOOR 
1006 
1007 
100ft 
1009 
1010 
1011 
lOlP 

ion 

1014 

lOlR 
lOlfe 
1017 
101« 
1019 
1020 
1081 
10?? 
10P3 
1084 

1035 
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0? 0033E 
0? 0033F 
0? 00340 

0? 00341 
0? QQ342 
0? 00343 
0? 00344 
0? 00345 
OP 00346 
0? 00347 
0? Q0348 
0? 00349 
OP 0034A 
0? 00348 
0? 0034C 
0? 0034D 
OP 0034E 



OP 

c? 

OP 
OP 
OP 
OP 
CP 
CP 
OP 
CP 
OP 
OP 
OP 
OP 
CP 
OP 
OP 
OP 



0034F 
00350 
003Bl 
00352 
00353 
003S4 

00355 
00356 
00357 
00358 
00359 
0035A 
0035B 
003BC 
0035D 
0035E 
0035F 
00360 



3^000000 X 
E*3on008 A 
33000000 X 

E330O008 A 
330^0000 X 
E^SOOOOB A 
0410034?' 
0^100350 
0^100354 
0^100358 
O^lOOSSE 
78300000 X 
3^000000 ^ 
2130O0E7 A 

E^SonooB A 
33100000 X 
6S00OP0A 



BRCHK 



lioonooo 

3^000000 
000on35F 
OOOOOOID 

OOOonooo 
looooooo 

30000000 
00000000 
OOOOOOOl 
UOOOOOO 
3^000000 
00000351? 
OOOOOOOl 

oooooooo 

2^00OC4B 
S^OOOO^C 

1§6060CS 
DSE3f5D9 






RDREPLY 



WRTCR 



PRSMPT 
PR8MPTR 

BRKMSC3 



PAGE 

MTW,o 

BEZ 

MTWiO 

BNEZ 

MTWjO 

BNEZ 

CALln 

CALIjI 

CALljl 

CALlji 

CAL1*1 

LB#R3 

STWjRn 

CUR3 

BNE 

MTW#1 



QEfvijg*?4 

DATA 

DATA 

DATA 

DATA 

GEN#A4P4 

DATA 

DATA 
DATA 

0IEN#8j?4 

DATA 

DATA 

DATA 

DATA 

GEN#gj j6«8 

QEN«gji6«8 

TEXT »N» 



RDWRT 

BREAK 

•SN4 
C&PYSK 

tSR4 

CePYSTDF«R7 

#SR4 

WRTMSQ 

PR8MPT 

RDREPLY 

WRTCR 

PR8MPTR 

BREAK 

BREAK 

»X» 

•SR^ 

QRANCNT 

RETURN 

XfU'jMJUC 
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TEST rSR BREAK 
N©T SET 

CdPYALL 

CePYSTD 

WRITE »ENTER X.f.f 

READ REPLY 
WRITE CR 



ZER9 BREAK FLAG 

CSNTlNUF 

SET A88RT FLAG 

ABSRT C6PY 



X 134000000! 

BRKMSG 

29 



XflO»#MjUC 

X» 30000000^ 

BREAK 

1 

X»3<fr000000' 

brkmsq 

1 LENGTH 

BTD 

XfgCf #0' » • f 

X»pC»#0' '<» 

EmTER X Te aBQRT C8MMANDtN» 



NOl 



l7J4f SEP 08* 


•75 




0? 00361 


#0E74OE3 


A 


a? 00362 


D64otlC& 


A 


0? 00363 


D6D9r34n 


A 


OP 00364 


C3D6n#D4 


A 


OP 00365 


ClOif44B 


A 


OP- 00366 


1^404040 


A 



ROWRT 



SO 



NCI 



17: 

1026 
10^7 
10P8 

in?g 

1030 
1031 

101? 
1033 
1034 
103R 
1036 
1037 

103R 
1039 

1040 
1041 

104? 
1043 
1044 
104!^ 
1046 
1047 

10^8 
1049 

lOBO 
lOSl 
105? 
1053 

1054 
105R 

1056 
10S7 

10R« 
10B9 
1060 
1061 
106? 
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0? 00367 32ai:oOOO X 

0? 00368 sigrnoos n 

0? 00369 683QnsF9 

0? 0036A 330EO00O X 

0? 0036B 6S»3on3FB 

0? 0036C 382i:o00O X 

0? 0036D 693Qn36F 

0? 0036E 3S2i:n000 X 

OP 0036F 21200007 A 

02 00370 65*300375 

0? 00371 3l2i:nooo X 

0? 00372 6a3on38C 

OP 00373 3l2i:nooo X 

OP 00374 6^300380 

02 0037^ 

OP 00375 3!^0EO000 X 

OP 00376 28EonQOO N 

OP 00377 3UCon007 A 

OP 00378 3Sl|n004 N 

OP 00379 2^500003 A 

OP 0037A 315F0Q00 X 

OP 0037B 693on3Bi: 

OP Q037C 0^100596 

OP 00370 28100456 

OP 0037E SSlEnOOS N 

OP 0037F 2Sl0n44F 

OP C038o 3&lEn003 N 

Op 00381 3&0EO000 X 

OP 00382 6A80O401 

OP 00383 6S*8on38E 

CP 00384 6»2on38A 

Op 00385 2810nopA A 

OP 00386 33oino6o X 

OP 00387 6J?3on20A 
02 00388 



PAGE 
RDWRTC© L^iHp 
CWjRp 
BE 

mtw*o 

BNE2 

LW#R? 
C1#RP 

BKE 
C^iRp 

BE 
CW#R? 

BE 
READlA FCU 

STWjRO 

L1jD3 

AWjDS 

STWiDs 

LliRS 

BNE 

CALljl 

LliRl 

STW#Rl 

Ll#Rl 

STW#Ri 

STW#Rn 
BALjSR4 
BCSil) 
BCSjp 

# 

READiO LliRi 
HTWjO 
BKEZ 

READU FCU 



ROWRT 

CeOE#R7 

TeARQ*s#R7 

RrAOl^ 

SFLECT#R7 

RFAD13 

DrVICE#R7 

DFV«INI<R7 
7 

RFADlA 
T©AR(3jR7 

RFAD3? 

DfV$9UT#R7 

REAO3? 

RFCNUMjR7 

PRTBUF 

R7 

WRTFPT444R7 

3 

CeDE#R7 

READ7 

SFTEIC 

RCERRt 

RDFPT*2#R7 

RCERR 

RDFPT*3iR7 

ClSEQjR7 

RFADCeHP 

RFA06 

RFAO30 

42 

IqERRjR7 
RETURN 
i 
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C ePTieN SN B9TH INPUT AND OUTPUT 
YES • FRR6R 

RECORD SELECTION SPECIFIED 
YES • ERRSR 

PCL DEVlCEt 
SYSTEM INPUT DEVICE 
TS INPUT FRSM ANS 
NSt 

ANS TS ANS CePY 

YES ^ ERR&R 

SYSTEM QUTPUT DEVICEt 

INITIALIZE RECbRP CqUNT 

ENTER QUTPUT BUFFfR LQC f8R 
C8MPRFSSED IN FPT 

COMPRESSED ePTl8N 8N INPUT 

NS 

SET ERR AND ABN IN M?EI PCB 

CHANGE ERR APR IN FPT 

CHANGE ABN ADR IN FPT 
INITIALIZE FBR Ci SeQUeNCe CHECK 
READ FIRST REC8RP 

END 9F FILE 



DID 1/8 ERRSR SCtuR 
YES 



NOl 
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1063 
1064 
106R 
1066 
1067 
106 A 
1069 
1070 

1071 
107P 
1073 
1074 
107!5 
1076 
1077 
107R 
1079 
1080 
1081 
108? 
1083 
1084 
108B 
1086 
1087 
1088 
1089 
1090 
1091 
i09? 
1093 

1094 
109R 

1096 
1097 

1098 
1099 
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SEP 08j 
P 00388 
C0389 
0038A 
003fiB 
0038C 
0O38D 



0038E 
0038F 
00390 
00391 
00392 
00393 
00394 
00395 
00396 

00397 
00398 
00399 
0039A 
0039B 

0039C 
0039D 
0039E 
0039F 
003Ao 
003A1 
003A2 
Q03A3 
003A4 
003A5 

003A6 
003A7 

0O3A8 
C03A9 
003AA 
003A8 



•75 

6AB0OO00 X 

68ooni?»oA 
SSSonooP' A 

68000150 
28100038 A 
6^000388 

38600000 A 

6AB0045E 

6^800367 

6^200385 

6ABoo53l 

2l30ftC5o A 

63100396 

28300050 A 

393i:n005 N 

6^800300 

381EO008 N 

2Uorroo A 

68400390 
28100000 N 
6AB0O5AD 

38ii:nooA hi 

68020339 
6ABon5DC 

381^0000 ^ 
3S?lEn012 N 
38lroo01 Ni 
3S51EO013 N 
2830O05o A 
3i3Eo00i N 
28100006 A 
3Ui:noo5 N 
65»30O3AF 

33ie:oooo X 

6AB00OOO X 
680003SE 



«EAD30 

Ri:AD32 

# 
READ6 



READ18 

READ19 
^EADgO 



BALjSR4 

B 

LWjR3 

B 

LI#Rl 

B 

LI*R6 

BAL#Sr4 

BCS#8 

BCS#? 

BAL#SR4 

CliR3 

BQE 

LI#R3 

STW#R3 

BAL#SR4 

LW#R1 

CI#Rl 

BA2 

Ll#Rl 

BALJSR4 

LWiRl 

B 

BAL#SR4 

LW#Rl 

STW#Rt 

LWjRl 

STWjRI 

LI#R3 
STW#R3 

LIjRi 
CW#Ri 

BKE 

MTW#l 

BALiSR4 
8 



ROWRT 



ERRdR 

RrTURN 

04 

RDABN+1 

56 

RFAOll 



DEC9MPR 
RDWRTC8 
READio 

SETEeo 

80 

80 

WRTFPT*5*R7 
NCCHK 

T8ARG*SiR7 
XtFFoOf 

44'3 

PRTBUF 

TABEXP 

TBARQ4lOfR7 

SEQID?#Rl 

SFQeUT 

CaR0SEQ#R7 

PRTaUF*l8*R7 

CaR0SEQ*1#R7 

PrTBUF+19^R7 

80 

WRTFPT*SjR7 

6 

TeARQ^5#R7 

READ2P 

RECNUMjR7 

HFXDUMP 

REA06 
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NB • ERROR IN CBMpRESSED IKpUT 



INVALID ©PTieN FOR aNS T9 ANS 



CLEAR EBD CeUNTER 

decbmpress input RECBRD 

END BF INPUT 
ERR8R 



EXPAND RECBRP SUE T9 RQ CNARACTLRS 
REC8RD SIZE T9 FPT 
CHECK FBR NC 0PT18N 

WAS TX SPTIBN SPECIFIED 

NB 

BUFFER DISPLACEMENT 

EXPAND TABS 

SET SEQUENCE ID 

MAKE APPR8PRIATE BRANCH 

CONSTRUCT SEQUENCE INF8 

M8VE SEQUENCE INF8 T8 BUFFER 



REC8RD SIZE T8 FPt 

HEX DUMP WANTED 

N8 

INCREMENT REC8RD CbuNT 



HOI 



17U9 REP 08, 


'75 






RDWRT 


1100 


02 


003AC 


32I006AB 


f?EAD21 


LWiRl 


• ♦ t 


1101 


0? 


Q03AD 


3SlEnnl2 


N 


STWjRi 


RRTBUF*18#R7 


110? 


02 


003AE: 


6»00n3A3 




B 


RFA019 


110.'? 




02 


003A^ 


RCAD22 


FQU 


« 


1104 


02 


003AF 


a^Eonooo 


N 


LIjD3 


PRTBUF 


1105 


02 


00380 


6A8on26D 




BAtiSR4 


BLKTEST 


1106 


0? 


003®! 


6S00O38ir 




B 


READ6 


1107 


02 


0Q3B2 


2^EonOOO 


N 


Ll#D3 


prtbuf 


lies 


02 


00383 


30EOOOO7 


A 


ANjD3 


R7 


1109 


02 


OO3B4 


353EEnQ04 


N 


STWjDs 


WRTFPT*4jR7 


1110 


02 


00385 


S^lEOQOS 


N 


LN#Rl 


TeARQ'*.8#R7 


1111 


02 


003B6 


3ll0n6AD 




CNiRl 


iX'GOFFOOOO' 


111P 


02 


003B7 


6^400123 




BANZ 


WRITEgSA 


1113 


02 


003B8 


O^lEnOOO 


X 


CALlii 


WRTFPTjR7 


1114 


02 


O03B9 


6ABon33E 




BAliSR4 


BRCHK 


UIB 


02 


OOSBA 


68oon38r 




B 


READ6 


1116 


02 


003BB 


6ABon59r 


READlS 


BAL#SR4 


LINENUM 


1117 


02 


003BC 


698on3A6 




BCSj8 


READ20 


111« 


02 


0O38D 


6800n20A 




B 


RFTURN 


1119 








# 






1120 


02 


CO38E 


2820noiD 


A READ7 


LI#R2 


29 


11^1 


02 


0038F 


B^04000E 


A 


STW#RO 


♦D3#R9 


11??? 


02 


003C0 


6^20n3BF 




BDRiR2 


• •1 


112?3 


02 


003Cl 


2QEono01 


A 


AIjD3 


1 


1124 


02 


003C2 


3SEEnooo 


X 


STW#D3 


CeW0RDjR7 


xim 


02 


003C3 


3«ion6B7 




LWjRi 


•X'38FF00OO' 


USA 


02 


003C4 


3t^lEnooo 


X 


STWjRl 


PrtBUF#R7 


1127 


02 


003C5 


22lonS73 




LliRl 


WCERR 


1188 


02 


003C6 


3SlEn002 


H 


STWjRt 


WRTFPT*2#R7 


1129 


02 


003C7 


2^100570 




LljRl 


wcabn 


1130 


02 


003C8 


3SSlEnOQ3 


N 


STW#R1 


^irTFPT*3jR7 


1131 


02 


003C9 


04lonS9A 




CALljl 


SETEaC 


113? 


02 


C03CA 


0*^1003^0 




CALlii 


SFTBIN 


1133 


02 


003CB 


28100020 


A 


LIjRi 


32 


1134 


02 


003CC 


3^lEnooo 


X 


STW#Ri 


CeBUSFD#R7 


113B 


02 


003CD 


3S1E0OOO 


X 


STWjRi 


CeBlEFT#R7 


1136 




02 


OOlCfe 


ntADB 


FQU 


t 



53 



REM9VE SEQUENClNt^ 



BUFFER ADR 

TEST IF BLQCKINQ WANTED 

YES • GB Get NEXT RECBRD 



SET BUFF ADDRESS 



K 0PTI6N USEOi 

WRITE RECeRD 
CHECK BREAK FLAG 



ERRBR 

ZER8 Ce BUFFER 

INITIALIZE T© gNP WQRD ©F BUFFER 

INITIALISE FIRST WBRD 9F BUFFER 

CHANGE ERR ADR IN FPT 

CHANGE ABn AQR IN FPT 

SET ERR AND ABN iH M;ES PCB 

SET BINARY M0DE PQR OUTPUT 



Hni 171 

1137 
1138 
1139 

1140 
1141 
114? 
1143 
1144 
il4R 
1146 
1147 
1148 
1149 
1150 
1151 
llSP 
1153 
11S4 
115R 
UBA 
1157 
1158 
1159 
1160 
1161 
116? 
1163 
1164 
116R 
1166 
1167 
1168 
1169 
1170 
1171 
117? 
1173 



49 SEP 08* 
OP 003CE 
0? Q03CP 
0? 0O3D0 
OP 003D1 
OP 00302 
0? 00303 
OP 003D4 
OP Q03D5 
OP 003D6 
0? 003D7 
OP 003D8 
OP 003D9 
OP 003DA 
OP 003D8 
Op 003DC 
OP 003DD 
OP 003DE 
OP 0G3DF 
OP 003E0 
OP 003E1 
OP 003E2 
OP 003E3 
CI? Q03E4 
OP 003E5 
OP 003E6 

OP 003E7 
OP 003E8 

02 
OP 003E9 
OP 003EA 
OP 003EB 
OP 003EC 
OP 003ED 
OP 003EE 

02 
OP 003EF 



»75 

O^IEOOOO X 
3<*3Qn004 N 
2^3on06F A 
2S10000F A 
4»lQO000 X 
SUonOOP A 
6^200306 

3830O00D N 
2Q3onOOO A 
6830O3CE 
28A0OO00 N 

33000000 X 
6»3on3DE 

33000001 ?^ 
6330n3E7 
3i30O001 N 
2UonooA A 

693on3E7 
3^300000 X 
6A800PB9 
65»80O3E7 

385EO004 N 
383EO005 N 
303EnO07 N 

6^00ft3E9 

003E7 

3S3E000S N 
3is?5EnOQ4 ^ 

003E9 

6^800309 
381EO008 H 
2IIOFFOO A 
6S4Q03EF 
3S1CO00A A 
6A800BAD 

003E*' 

6ABGn540 







ROWRT 






CALlM 


R0FPT#R7 




READ INPUT 


«EAD81 


LWjRa 


MIEI'^4 








SLS|R3 


• 17 




Get SIZE eF input record 




LliRl 


X»F» 








ANO#Rl 


MjEl 




GET ASN FIELD 




CliRi 


P 




INPUT FR»M A DEVICE BR ANS 




86 


«42 




YES 




Li^#R3 


MlEl+13 








Al#R3 











BEZ 


RFA08 




SKIP NULL RECQRD 




LIjSR3 


leBUF 




DEFAULT BUFFER APR 




MTWjO 


ANS3LK 




BLOCKING WANTED FaR ANg 




BEZ 


READ84 




NB 




MTWjo 


ANSBLK*! 




WAS RFC GIVEN 




BKEZ 


REA086 




YES 




STWjR3 


ansblk^i 




SET T6 SIZE 9F THIS REcBRD 


READ84 


CIjRi 


XfA» 




IS INPUT FRSM ANS 




BKE 


REA086 




NB 




STW#R3 


BLKSIZE 




YES • SET BLOCK SfZE 


readss 


BALjSR4 


unblk 




GO UN8L8CK 




BCS#8 


REA086 




NBT Blocked format 




LW#R5 


WRTFPT*4i 


iR7 


LOC OF THIS RECORD 




LW#R3 


WRTFPT*5j 


iR7 


SIZE 




AWiR3 


WRTFPT*7i 


iR7 


♦BTD 




B 


RFA087 






READ86 


FQU 


t 








STW#R?| 


WRTFPT*5i 


iR7 


ENTER SIZE IN OUTPUT FpT 




LWjRb 


RDFPT+4#R7 




READ87 


rsu 


$ 








BALjSR4 


NCCHKX 




TEST FOR CR on RECORD 




LWiRl 


T8ARe*8#R7 






CIjRI 


X»FF0Qf 




WAS TX OPTION SPECIFIED 




BAZ 


RFAD8P 




NO 




L^iRl 


SR3 




BUFFER ADR 




BALiSR4 


TA8EXP 




EXPAND TABS 


READ82 


FCU 
&AL#SR4 


• 
SFTE8DR 







54 



Nni 



17! 49 f 


^IP 08j 


♦75 








RDWR 


1174 


OP 


OOSPQ 


28lonn*C 


A 




Ll#Rt 


108 


117R 


OP 


ooari 


3^lEnoc5 


N 




STWjRl 


WRTFPT*5jR7 


1176 


OP 


C03r2 


6ABon4BF 






BAL*SR4 


CSMPRFSS 


1177 


OP 


003F3 


aiDnnooi 


A 




ClsOp 


1 


117R 


OP 


003F4 


6i?2ooj?oA 






BQ 


RETURN 


1179 


0? 


oosrs 


6ABoft33i: 






BAL«SR44 


BRCHK 


11«0 


OP 


G03F& 


33000000 


X 




MTW#o 


UMBADR 


11«1 


OP 


003^7 


6i?3on3Fl 






BNEZ 


READ6B 


118^ 


OP 


003F8 


6»00n3CE 






6 


READ8 


11S3 


OP 


003F9 


2i^lono2B 


A 


READ12 


LliRl 


43 


1184 


OP 


003FA 


6»00n388 






B 


READli 


118S 


OP 


003F8 


28l0ft02C 


A 


READ13 


LI#R1 


44 


11 8A 


OP 


003FC 


6«00n38« 






B 


RFADll 


1187 


OP 


Q03FD 


28oonooo 


H 


SETBIN 


QEN#ajp4 


Xf22f jM:E6 


118R 


OP 


003FE 


ouoonoio 


A 




DATA 


X»10« 


1189 


OP 


003FF 


003ClC3a 


A 


BINVAL 


DATA 


Xf003ClC38t 




OP 


00<*00 


l^oonooo 


A 









5b 



SET SIZE ©F ©UTPMT REC&RD 

csmprfss and write rec»RP 



TEST F8R BREAK 

TEST IF UNBL9CKINQ aNS TAP| 

YES 

CSMPRESSED QN INPUT AND ©UTPUT 
RECQRD SEIECTI8N USED W/CeMP 



STANDARO BINARY CSDES 



Not 



1190 
1191 

119? 

Il9?l 

1194 
119S 
1196 
1197 
1198 
1199 
1?»00 
1?01 
IPO? 

1?03 
1?04 
1?0R 

1?07 

1?0« 
1?09 

IPIO 
1?11 
1?1? 
1?13 
1?14 
1?1R 
1?1A 
1?17 
1?1R 
1?19 
1?20 

1P2P 
1P23 
1?24 
1P255 
1P26 



SEP Og# '75 



? 00^01 022oooBo A 

? 00^02 S'^'lonoo? A 

?. 00^03 3300O000 X 

P 00^0<* 6^300417 

? OO^OS O^iroOOG ^ 

P 00#0& 3260000^ N 

? 00^07 2i6ono6F A 

? 00^08 2<?5oooor A 

? 00^09 ^*=*500000 X 

? OO^OA SISOOOOP A 

P 0040B 6S?2cn40D 

P OO^OC 38600000 N 

P OO^OD 33000000 X 

P OO^OE 6a3C041P 

P OO^OF 3300O001 N 

P 00^10 6930O41F 

p oo#ii 3S600001 ^ 

P 00412 2i50O00A A 

P 00413 6»30O41F 

P 00414 322^0004 N 

? QO^lS 3^210004 N 

P 00416 3B6OOOOO X 

P 00417 6ABonPB9 

P 00418 6^80O4lF 

P 00419 3ig6Eo005 N 

? OO^IA 2U0n05O A 

P OO^lB 68200421 

P 004lC 38AEO004 N 

P 0041D 3SA0n007 A 

P 0041E 6i0CO426 

02 0041'' 

P OO^^lF 2160O050 A 

P 00^20 6^200425 

? 00^21 0220OOBo A 

P 00422 8Alon007 A 



PAQE 
# SUBRaUTT^E RFA 
REA0C9MP LCI 

PSMjRi 

MTW#0 
BNE2 
CALIj 1 
RC20O LWjRd 

StSjR6 
LIjRR 

AKOiRB 

CI*R5 

BQ 

LWjR6 

MTWjO 

BEZ 

MTW#0 

BNEZ 

STWjRi^ 

RC2OS CIjRb 

BNE 
LWjR? 
STWjRp 
STMjRi^ 

RC206 BALJSP4 

BC$«8 
L^iR6 

BIE 
LW#SR3 

sWiSRa 

B 
RC207 FQU 

CI#R6 

BQ 
RC890 LCI 

PLM*Ri 



RDWRT 

oceMP Reads cenPRESSED inputi 



S6 



11 

#R7 

UNBADR 

RC2Q6 

RDFPTjR7 

M|EI*4 

• 17 

XfF» 

MjEl 

2 

«<^2 

MIEI413 

ANSBlK 

RC205 

ANSBLK*! 

RC207 

ANSBLK*! 

XtA» 

RC207 

RDFPT*4jR7 

WRTFPT*4<R7 

BLKSIZE 

UnBLK 

RC207 

WrTFPT*5jR7 

80 

RC290 

WRTPPT*4jR7 

R7 

RC212 

t 

80 

RC210 
11 
#R7 



TEST TF UNBLOCKING aNS TAPE 

YES 

READ RECORD 



GET ASN FIELP 

IS IT DEVICE 8R ANS 



ARE NF SlBCKlNQ AnS TApE 

NB 

VyAS RFC SPEClFIEU 

YES 

SET TB SIZE ©F THIS REC 

IS INPUT PRBh aNS 

NB 

RESET WRITE ADDRESS 
SET BLBCK SIZE 

se unblbck 

NBT 8LBCKE0 FBRMAr 
GET RECfiRD SIZE 

ERRBR 

ADR 8F THIS RECORD 



CHECK LENGTH QF RFCBRD 

BK 

NBT C9MPRESSED • MAKE fRRBR EXIT 



HOI 



17J 

i?2a 

1?30 
1?3? 

1??3# 
1?3R 
1.P36 
1237 
iJ?3R 
1J?39 

i?4n 
i?4i 

1243 
I244f 
124B 

1247 

1248 
1249 

i2Sn 

12B1 
12B2 
1253 

12S4 
125R 

12Rfe 
1287 

1258 

1259 
1260 
1261 

1262 

1263 



49 <5EP 08j 
02 00423 
02 00424 



♦75 

OSSOOOOO A 
ESOOOCOB A 



02 
02 
02 
02 

02 

02 
02 
02 
02 
02 
02 
02 
02 
02 

02 
02 
02 
02 
02 
02 

02 
02 
02 
02 
02 
02 
02 

02 



00^25 
00^26 
00^27 
00^28 
00429 
00#2A 
0042B 
C042C 
00^20 
0042E 
00*2^' 
00^30 
00^31 
00432 

00<*33 
00*34 
00*35 
00436 
00*37 
00*38 

00439 
0043A 
0043B 
0043C 
00*3D 

oo*3e: 

00*3F 
00**0 



22Aonooo ^ 
38600007 A 
2^6cnC02 A 
FSaCnOOA A 
4^300^88 
21300018 A 
65*3on421 
784CO000 
73lCnOOO 

22300001 
386onoOA 

30600007 

Fl*6O006 

6^300421 



02 00*41 
02 00**2 
02 00443 
02 00444 



22300002 A 
Fg56o006 A 
22400000 A 
^^460006 A 

22300003 A 
F246n006 A 
gg^FFFFF A 
F22on006 A 
F238n006 A 
30200003 A 
64400438 
4ttgon6B9 
31500002 A 
6^300421 

223CO003 A 
Fg4fco00^ A 
2^400003 A 
3^410000 X 



P?C210 

pcai2 



LCI 
B 

LI#SR3 

LWiR6 

Sl$jR6 

LBjRj 

AND#R3 

CliR3 

BNE 

LB#R4 

MTB#i 

LI#R3 
H^jR6 

A^4R6 
CB#R4 

BSE 

Ll*R3 

LBiRs 

LliR4 

STB#R4 

LI#R3 

LBjR4 

Al#R4 

LB#R2 

LB#R3 

AW#R2 

B0R#R4 

aND#R2 

CWjRS 

BM 

LIiR3 
LBjR4 

SLSjR4 
STWjR4 



RDWRT 



57 





#SR4 



leBUF 

R7 

2 

*SR3iR6 

L(X»lFf ) 

X»18t 

RC290 

ClSEQjR6 

CISEQjR6 

1 

SR3 

R7 

♦R6*R3 
RC290 

2 

«R6#R3 



#R6#R3 

3 

#R6#R3 

■ 1 

•R6 

#R6#R4 

R3 

S»2 

LfXtFFf ) 

R2 

RC290 

3 

♦R6#R3 

3 

CIBT9TAL#r7 



DEFAULT REC ADR 



CHECK ID 



CHECK SFQ 
RECeRD ADDRESS 



CSMPuTE CHECKSUM 
©RIQINAL T9 R5 

2ERQ BYTE IN RECORD 

GET BYTE CeUNT IN R4* 

DECREMENT 

START SUM IN R2 

ADD EACH BYTE 
ITERATE 

CHECK SRIGINAI AGAINST NEW 



SET UP BIT COUNT F8R THIS RECORD 



Nnl 



1?67 
12?68 

1270 
1271 
1?7? 
1273 

1274 
127R 
127A 
1277 
127R 

1279 

1280 
1281 
128P 
1283 
1284 
128R 
1286 

1287 
1288 
1289 



02 
02 
02 
02 
02 
02 
02 
02 
Op 
02 

02 

02 

02 
02 

02 

02 

02 
02 
02 
02 
02 
02 
02 
02 
02 



00^47 
00^48 
00449 
0044A 
00^48 
00^4C 
0044D 
0044E 

00^4F 
00^50 
00^51 
004S2 
00^53 
00^S4 
00^5S 
00456 
00^57 
00^58 
00^59 
QO^SA 
OO^SB 
0045C 
OO^SD 



♦75 

2240f»O2O A 

3^4Ea000 ^ 

3S4i;ftOOO >< 

2240ft00i ^ 

3^400007 A 

3S4Cn000 X 

O82OOO0O A 

8^100007 A 

0220nO8O A 

ESOonOOB A 

7glonooA A 

2110005* A 
6^30040* 

2U0O006 A 

6«3Gn4B9 

2llonoo5 A 

6^300459 

28100000 A 

6A80nOO0 X 
68000421 

SSFonOOl A 

0220OCBo A 

8^100007 A 

0820OO20 A 

E8OOOOOB A 



# 
RCERR 



RCERRl 

RCERR2 



LI#R4 
STWjR4 
STW#R4 
LI#R4 

Ai^iR4 

STWjR4 

LCI 

PLMjRi 

LCI 



LBiRl 

CliRl 

BE 

CliRl 

BE 

CIjRi 

BE 

LljRl 

BALjSR4 

B 

LW#04 

LCI 

PUMjRi 

LCI 

B 



RDWRT 
32 

C!8USJ?D#R7 
Cl8LEFTiR7 
fSBUF^i 

R7 

ClweR0#R7 

11 

#R7 
8 

«SR4 

SR3 

Xt56t 

RC200 

6 

RCERRp 

5 

RCERR2 



ERR8R 

RCa90 

Rl 

11 

♦R7 

2 

«SR4 



INITIALIZE CeNTR»L WSROS 



5S 



EXIT 



RER6RT I© ERRSR 



SAVE ABN C8DE 



Nol 



171 
l?9n 
1?91 

1J?93 
1294 
1P9R 
12l9ft 
1397 
l?9g 
1?99 
13C0 
1301 
130? 
1303 
1304 
130R 
130^ 
1307 

130R 
1309 
1310 
1311 
131? 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
13?? 
13?3 
13?4 

132B 
1326 



49 SEP 08# ?75 



0? 0045E 
0? 0045F 
0? 00^60 
0? 00461 
D? 00^62 
0? 00^63 
0? 00^64 
0? 00^65 
0? 00^66 
OP 00^67 
0? 00<*68 
0? 00^69 
0? 00^6A 
OP 0046B 
0? 00^6C 
0? 0046D 
OP 00^6E 
0? 00^6^ 
0? 00^70 
0? 00<^7l 
0? 00472 
OP 00^73 
OP 00474 
CP 00475 

Op 00476 
OP 00477 
OP 00478 
OP 00^79 
OP 0047A 
OP 00470 
OP 00^70 

OP 0047D 



oS2ono7o A 
8a5onoo7 A 
2Sionooo A 

329i:nG00 ^ 
38410000 X 
22FrFFFF N 
3QFQn007 A 
22200023 A 
3l^30O6Ae 
BS34n00F A 
6^200467 
2OF00OOI A 
226ono06 A 
6AB0049E 
2X200006 A 
6«240476 
2120002c A 
6^100473 
2U2FFFDS A 
7«54nS76 
6<^00ft474 
7^540576 
FS52nOOF A 
2^100001 A 

6^00O46A 
6B00046A 
6*000470 
6*000483 
6*000480 
6*000492 
6*00n49A 

3SI9IO000 X 



PAGE 

# SUaReUTlNE Dec 

* INPUTf 
DFC»MPR LCI 

PSMjRB 

Ll#Rl 

LW^SRp 

LWjR4 

LI#D4 

LIjR? 
LWiRS 
STW#Rj| 
BDR#R9 
Al#D4 
DEClO LIjRA 

BALiSR4 

CIjRp 

BIE 

CliRP 
BL 

AIjR? 
LB#R5 
B 
DEC15 LBiRB 
STBjRS 
AliRl 



« 
DEC2O 



RDWRT 
©MPR REC0NSTRUCTS 

7 

#R7 



ClBUSF0#R7 

ClBLEFTjR7 

PRTBUFwi 

R7 
35 
«t f 

#D4#R? 

*•! 

1 

6 

0FC6Q 

6 

DFC2QfR2 

44 

orcis 

•43 

SCCTABjR? 

i<^2 

CITAB*R2 

#D4#Ri 

1 

DFCIO 
DFCIO 
DFC30 
DEC35 
DrC40 
DEC45 
DEC50 



59 



A SYMBOLIC ReCQRD FR8M C9MPRESSED 



START TN BYTE ZER8 

INITIALIZE INPUT CSNTRQl WeRDS 



# 
DEC3O 



STWjSRp C!BUSF0iR7 



BLANK aUTPUT BUFFER 



GET 6 BIT BYTE 

IF C0NTR9L BYTE (o*6) 
EXECUTE JUMP TABUf 
IF NST cSNTR^Lj extract 8-BIT 
EBCDIC C8DE FR9M APPRBPRIATE 
TABLE t 



PUT CBDF IN OUTPUT BUFFER 

ITERATF 

♦* CeNTReL BYTE TABLE *♦ 

PADDING 

UNASSIGnED 

E0L 

E8F 

NEXT 8 BIT 

NEXT CeUNT*l 

NEXT CeUNT +65 

RESTaRE CQNTReL WeRDS 



HOI 



ill 

1327 
1328 

1330 
1331 
133? 
1333 

1334 
1335 

133ft 
1337 
133« 
1339 

1340 
1341 
134? 

1343 
1344 

134R 
1346 
1347 
134« 
1349 
13S0 
1351 
135? 

1353 
1354 
1355 
1356 
1357 
1358 
1359 

1360 
1361 
136? 
1363 



49 SEP CBm 
0? 0047E 
OJ? 0047r 
0? 00480 
OP 00481 
0? 00^82 

OP 00^83 
OP 00484 
0? 00^85 
OP 00^86 
OP Q0487 
OP 00488 
OP 00<*89 
OP Q048A 
CP C048B 
OP 0048C 

OP 00480 
CP CO^SE 

OP oo^aP 

op 00490 
OP 00491 

OP 00492 
0? 00493 
OP 00^94 
OP 00495 
OP 00496 
OP 00497 
OP 00498 
OP 00^99 

DP 0049A 

OP 0049B 
OP 0049C 
OP 0049D 



»75 

3S4IO00O X 

0^200070 A 

8A5oo007 A 

08200000 A 

E^OOOOOB A 

3^910000 X 

3^4rnooo X 

2'^l0n203 

3t>lEnC0P N 
2H1C014F 

3§ienoo3 N 

0820OO7O A 

BA5on007 A 

08200080 A 

E^^OOnOOB A 



28600008 
6A8on49E 
FS22ftOOF 
2^100001 
6800n46A 

28600006 
6A©on49E 
2Q20O001 
28500040 

F«552noor 
2Ulonooi 

64200496 
6*00n46A 



28600006 A 
6A80O49r 
20200041 A 
6^000495 



DEC3S 



« 
DEC40 



DEC45 



DEC47 



DEC50 



STW#R4 

LCI 

PLMjRR 

LCI 

B 

ST^jSR? 

STWjR4 

LI^Rl 

STWiRi 

LliRl 

STW#R1 

LCI 

PLMjRB 

LCI 

B 

LI4R6 
BALj8R4 
STB#Rp 
AIjRi 



LliR6 

BALjSR4 

AIjRp 

LIjRs 

STBjR5 

Al#Rl 

BDR#R? 

B 

LI#R6 

BAL#SR4 
Al#RP 

B 



ROWRT 
CIBIEFT#R7 
7 
#R7 



*SR4 

CfBUSED#R7 

CIBLEFTjR7 

leERRi 

R0PPT*2#R7 

RDABN 

RDrPT*3jR7 

7 

#R7 

8 

«SR4 

8 

OPC6O 
#D4*Rl 

1 
DFCIO 

6 

DE'C60 
1 
f f 

«D4#R1 

1 

S»2 

Drcio 

6 

DrC60 

65 
DFC47 



6Q 



SIGNAL pat 
EXIT 

RESTBRr CeNTR0L V^0ROS 



RESET ERR ADR IN READ PPT 
RESET ABN ADR IN READ FPT 

SIGNAL E©F 
EXIT 

GET 8 BIT CeDE FR8M leBUl^ 

put in 8utput buffer 
iterate: 

USE 6 BIT C0UNT 

♦ 1 

EXPAND BLANK FIELD IN BUFFER 

ITERATE 

USE 6 BIT CeUNT 

♦65 



Nnl 17U9 !5EP OSj 

1364 OP Cn#9E 

1365 CJ? Cn#9F 
t36A OI' OO^AQ 

1367 0? On#Al 

1368 OP 00^A2 

1369 0? 004A3 

1370 OP 00^A4 

1371 OP OO^AB 
137P OP On#A6 
1373 OP 0n*^A7 
1374 

1375 OP C0#A8 

1376 0? OO^Af 

1377 OP 004AA 

137a OP OO^AB 

1379 OP 004AC 

1380 OP CO^AD 

1381 OP OO^AE 
138P OP OO^AF 

1383 OP 0O#Bc 

1384 OP OO^Bi 
138R OP 00#B2 

1386 OP 00^^83 

1387 CP 004B4 

1388 OP QO^BS 

1389 OP 00<>B6 

1390 OP 00#B7 

1391 OP 004B8 
139P 0? 004B9 
1393 

1394 Op 004BA 

139?5 OP 00#BB 

1396 OP OO^BC 

1397 OP OO^BD 



t75 

3Q90<^006 A 

3l9rnOOO >^ 
6*!S2004A8 

385onOOB A 

6ABon401 
6**8on48A 

SSBofiOOS A 

389lnOOO X 

3i^*^Enooo >^ 

6«00ft49E 

21200000 A 
325EnOOO X 
3g3An00Q A 

3^<^0n006 A 
6<Jlon^B7 

3U6onO0* A 

2S2Cnl00 A 

2050ft001 A 

35S5EnOOO X 

323AO00O A 

3A4on004 A 

2^280100 A 

2Q4PrFE0 A 

3A40O004 A 
6**00n4Bg 

2&2CniOO A 

3&3An000 A 

E^OOnooB A 

02200070 A 

8A50O007 A 
0220O0PO A 

E^ooncoB A 



Di:C60 



# 
DECfeB 



DltC67 

DEC70 



DEC7S 



AiNiSRP 
CWiSRp 
BLE 
LWjRB 

BALjSR4 

BCR#8 

Li»ijSR4 

Ll^iSRp 

LWiR4 

B 

LljRp 
LWjRS 
LWiR3 

SWjR4 
BGEZ 
AW4R6 
SlDjRp 

AIjRS 

STWiRB 

LWjR3 

LCW#R4 

SlD#Rp 

AI#R4 

LCW#R4 

B 

SLDiR? 

STW4R3 

B 

LCI 

PLMjRR 

LCI 

B 



RDWRT 
R6 

ClBT8TALjR7 
DFC65 
SR4 

REA0C8MP 
DEC75 
R5 

CIBUSED#R7 
ClBLEFTjR7 
DPC60 

ClWeRDiR7 

0#R5 

R6 
DEC67 

R4 

0#R6 

1 

CIW8RD^R7 

O4R5 

R4 

0jR4 

•32 

R4 

0EC70 

0jR6 

0#R5 

«$R4 

7 

#R7 
2 

#SR4 



EXTRACT (R6) BITS 

EN9UQH LEFT IN CURRENT RECORD 

VES 

READ NEXT RECQRD 

MUST Br CeMPRESSED. BR IF NdT 



6l 



INITIALISE RESULT RfQISTER 
GET BUFFER POINTER 
PICK UP CURRENT WeRD 

CHECK IF R3 CONTAINS TBTAL 
BR IF YES 

CSMPUTE N8, SF BITS IN R3 
AND SHIFT TO Rp 



BYTE 



INCREMENT BUFFER P81NTER 

GET W6RD FROM BUFFER 

GET Ne. PITS NEEDED FR8M R3 

SHIFT INT8 Ra 

C8MPUTE BITS LEFT IN CURRENT 



SHIFT T8TAL BYTE T8 R2 
PUT CURRENT W8RD BACK 
EXIT 



W8R0 



SET ERR8R 
EXIT 



FLAG 



Hoi 



17U9 f 


^tP OBs 


t75 








RDwRT 


1398 












PAGE 




1399 










♦ SUPReUTI^E COMPRESS PR§DUCeS 


I40n 


Op 


0n4BE 


0^200070 


A 


CSMPRESS 


LCI 


7 


1401 


02 


004BF 


80500007 


A 




PSM#R5 


♦R7 


140? 


02 


OO^Co 


22800000 


A 




LIjSRi 





1403 


02 


OO^^Cl 


3S9E00C0 


X 




LW#SRp 


C68USED#R7 


1404 


02 


004C2 


3^410000 


X 




lVi*Rk 


Ce8LEFTiR7 


140B 


02 


004C3 


38lEn000 


X 




LW*Ri 


RrCSnE#R7 


1406 


02 


0O^C4 


6»2co4Di 






BQl 


CMPlQ 
CE8F 


14Q7 


02 


oo^cs 


225onO03 


A 




LIjRR 


1408 


02 


00*^C6 


226onOOA 


A 




LliR6 


6 


1409 


02 


00#C7 


6ABoo4rC 






BAL4SR4 


CMP60 


1410 


02 


004CS 


38lCn000 


X 




LW#Ri 


PRTBUFjR7 


1411 


02 


004C9 


4»1006BA 






AKO#Ri 


fXti8FFFFFF» 


141? 


02 


004CA 


3SiEnooo 


X 




STW#R1 


PRTBUFiR7 


1413 


02 


C04CB 


6AB0OB45 






BAL«SR4 


WRITEC8 


1414 


02 


004CC 


3S4EO000 


X 


CMP5 


STi^#R4 


C©SLEFT#R7 


1415 


02 


004CD 


3^9^0000 


X 




STW#SR2 


CB8USFD#R7 


1416 


02 


004CE 


0220O070 


A 




LCI 


7 


1417 


0? 


004CF 


8^500007 


A 




PIM#R!5 


#R7 


Ulft 


02 


0O4D0 


EaooonoB 


A 




B 


#SR4 


1419 










« 






14?0 


02 


OO^Dl 


22100000 


A 


CMPIC 


LIjRI 





1421 


02 


00^D2 


22ronooo 


H 




LIjD4 


leeuF 


1482 


02 


C04D3 


3WFonoo7 


A 




AW«04 


R7 


1423 


02 


00404 


F252n00F 


A 


CMP 11 


L8#Rr 


♦D4#Rl 


1424 


02 


OO4D5 


glgonoco 


A 




CliRs 


X»CO» 


142K5 


02 


004D6 


682on4E9 






BLE 


CMP15 


1426 


02 


004D7 


4»5oo*BB 






AND#RR 


■X»3F» 


14 27 


02 


C04D8 


725An586 






LBjR?? 


C6TABjR5 


1428 


02 


004D9 


6f3004DC 






BNEZ 


CHPX2 


1429 


02 


004DA 


F252n00F 


A 




LBiRB 


«D4#Rl 


1430 


02 


004D8 


6800n4EF 






B 


CMP17 


1431 










* 






1432 


02 


004DC 


22600006 


A 


CMP12 


LI#R6 


6 


1433 


02 


004DD 


6ABon4FC 






BAL#SR4 


CMP60 


1434 


02 


004DI 


20100001 


A 


CMP 13 


Al#Rl 


1 



62 

A CBMPRESSrD OUTPUT R|C9RD aNP WRITES ITt 



SET BLANK CeUNT ^FRB 
PICK UP C8NTR6L WORDS 

CHECK RECORD SIZE 

ZERO IMPLIES END OF OUTPUT FILE 

EDIT EOF CONTROL BYTE 

IN 6 BITS 

CHANGE ID FROM X?38f 

TO X»i8f FOR LAST CO RECORD 

WRITE LAST RECORD 
RESTORE CONTROL WORDS 



EXIT 

COMPRESS STARTIN(^ AT ByTE ZERO 
COMPUTE BUFFER ADDRESS 

GET NEXT BYTE 

CHECK FOR A-Z/0»9 

CANT BE IF LESS TnAN XfCO» 

GET 6 Bit cohpressed Code 

ZEROj use original 8 BlT^ 



SET Bit count 

enter in output Buffer 

position to next byte 



Mol 



17J 

143S 
1436 
1437 
1438 
1439 
1440 
1441 
144? 
1445 
1444 
144R 
1446 

1447 
144» 
1449 

I45n 

14S1 
14B? 
1453 
14B4 
145«5 
1456 
1457 
145R 
1459 
1460 
1461 
146P 

1463 

1 "T O "F 

1465 

1466 
1467 

146A 

1469 

1470 
1471 



49 REP 08j 
0? 004DF 
OP 004EO 

OP oo^e:i 

OP 00^E2 

OP oo^e:3 

OP 00^E4 
OP 00^E5 
OP 004E6 
OP 004E7 
OP 004E8 

OP 004E9 

OP 004EA 

OP OO^EB 

0? 004EC 

OP C04ED 

OP 004EE 

OP 004EF 

OP OO^'^O 
OP 004^1 
OP Q04Fp 
OP 00^F3 
OP 00^P^4 
OP 004F5 
OP 004F6 

OP 004F7 
OP OO^Fg 
OP C04F9 
OP 004FA 
OP 004FB 



OP Q04FC 
OP OO^FD 

OP OO^P'I 
OP 004FF 



'75 

31110000 ^ 
6S'1004D4 
SQlFFFBo A 
6»l004C5 
3^100001 A 
3Q80f)OOl A 
2250000S A 
226on006 A 
6ABorn4FC 
64S0C04CC 

78600576 
7l5CftS76 

6S3004F7 
646004EA 

21500040 A 
6«3004FA 
3^5EoOCO X 
2250OO04 A 
22600006 A 
6AB004FC 

325EO00Q ^ 
22600008 A 
6AB004FC 
6«00040E 

2U6OOO28 A 
32500006 A 
68000i»DC 
2Q80O001 A 
6«00O4DE 



8^B0O007 A 

2^800000 A 

6^20O50P 
6ABof^Sl4 



CMf9i4 



# 

CHPIS 



CMPi7 



# 
CMPpo 



CMP25 



« 
CMP60 



CMP62 



CWjRi 
BL 

AIjRi 
BQEZ 

AiMiSRl 
LI*P5 
LIjR6 
BALiSRi^ 

B 

L8#R6 

CBiR!? 

BE 

BDR#R6 

CIjR5 

BE 

STWjRR 

LIjRS 

LI#R6 

BAL#SR4 

LWiRB 

LI#R6 

BAL1SR4 

B 

Al#R6 
Ll^iRS 

B 

AI4SR! 

B 



PS^«SR4 
AliSRi 
BGZ 
BAL#SR4 



ROWRT 
RECSIZE#R7 
CMPll 

■80 
CHP14 

Rl 
Rl 

CFei 

6 

CMP60 
ChP5 

SCCTAB 

SCCTABaR6 

CMPao 

$•2 

f I 

CMPgS 

ATTRBjR7 

CNEXT8 

6 

CMP60 

ATTRBjR7 

8 

CMP60 

CMP13 

43 
R6 

ChPlg 

1 

CMP13 



#R7 


CMP65 
CMP70 



63 



srap AT END 0F nir.mo 



euTPUT Nier less tnan 80 bytes 

PAD TS 80 BYTES 
ADD EBL T8 RECaRD 



NST A»2j0"9 

CHECK SPECIAL 6 BIT CBDES 



BLANK 

8*8IT CHAR MUST »£ 8UTPUT 



eUTPUT 6 BIT CeNTRSL CHARACTER 



eUTPUT 8 BIT CHARACTER 
ITERATE 

FeUND IN SCCTAB 
CBDE IS INDEX^43 

ACCUMULATE BLANK 



IS BLANK C8UNT ZlR© 
N8 



Hni 



X7t 

iU7P 
1473 

1474 
147B 

147^ 
1477 

147R 
1479 

1480 
1481 
14«? 
1483 
14g4 
148?5 
!4A^ 
1487 
1488 
1489 
1490 
1491 
149P 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
150? 
1503 
1B04 

15CR 
1506 
1507 
1508 



49 SEP 08* 

OP ooSoo 
0? ooSoi 



OP 


COSOP 


OP 


005C3 


OP 


00504 


0? 


ocSos 


OP 


C0506 


OP 


005C7 


OP 


005o8 


OP 


00509 


OP 


COSoA 


OP 


00508 


OP 


oosoc 


OP 


OoSoD 


OP 


co5oe: 


0? 


ooSo^ 


OP 


oosio 


OP 


oosii 


op 


00S12 


OP 


00513 



OP 
OP 
OP 
OP 
OP 
0? 
OP 
OP 
OP 
OP 

OP 
OP 
OP 
OP 



005l4 
00515 
Q05l6 
00517 
00518 
005l9 
OOSIA 
OOSlB 
QOSIC 
0051D 

QOSlE 
OOSlF 

00520 
005P1 



♦75 

88800007 A 

E»00O00B A 

08200020 A 

8^500007 A 

23500007 A 

2i60OO06 A 

gQSFFFFF A 

6830O50F 

28500005 A 
2180003F A 
6*200500 

28500006 A 
208FFFC0 A 
6ABoo514 
38500008 A 
6ABon514 
08200020 A 
8A5CO007 A 

28800000 A 
6800O4FF 



38200005 A 
3g90O006 A 
21900360 A 
68200524 
89800007 A 
389CO006 A 
28E0O00O N 
6A800P6D 
6800O51E 
6A800545 
88800007 A 
28900020 A 
28400020 A 
330i:OdOO X 



# 
CMP65 



CMP67 
CMP68 



# 

CMP70 



PLW#SR4 
B 

LCI 

PSM#R!5 

LIjRS 

L1jR6 

AliSRi 

BEZ 

LIjRS 

CI#SRl 

BIE 

LI#Rb 

AIjSRi 

BAL#SR4 

LW#R5 

BAL#SR4 

LCI 

PLM#R!5 

LliSRi 



LW4RP 
ANjSRp 
CI#SR2 
BLE 

PSW#SR4 

SiNjSRp 

LliD3 
BALi9R4 

B 
BALjSR4 

pm#SR4 

LliSRp 
LIjR4 

MTW#0 



RDWRT 



6^ 



#R7 
#SR4 

2 

#R7 

CBLANK 

6 

• 1 

ChP68 

CNBCl 

63 

CMP67 

CNSC65 

•64 

ChP70 

SRI 

CMP70 

2 

#R7 


CHP62 



R«i 
R6 

CBBTeiAL 

CMP73 

#R7 

R6 

PRTBUF 

blktest 

$*^ 
WRITECB 

*R7 

3P 
3P 
I8E:RRjR7 



ENTER BLANK IN 6 BITS 
aNlY eNE BLANK 



iCt64 BLANKSj ENTIR CeUNT^l 

ENTER CQUNT*65 

ADJUST CSUNT 

eUTPUT C8NTR9L BYTE 

SET C6uNT 

©UTPUT CeUNT 



SET N8, eF BLANKS T8 ZeR9 
eUTPUT ORIGINAL ^VTE 



RftsiTieN Byte in pven register 

INCREMENT TOTAL ilT CBUNT 

CAN FIT IN CURRENT REC9R0 

RESTaRf PREVI9US BIT CftUNT 
BUFFER ADR 

Se TEST IF BL8CKING WAnTID 
YES • SKIP WRITE 

NRITE RECORD 



DID 18 FRR8R OCCUR 



Hni 



17149 ? 


5EP 08* 


»75 




1B09 


0? 


oospp 


6»3on514 




iBlO 


CP 


Q0S23 


6^0on4CC 




1511 


OP 


00524 


3<^5EnoOO 


X 


151P 


OP 


005P5 


3*^400006 


A 


isn 


OP 


005P6 


6»ion52E 




1514 


OP 


Q0527 


2^3onoOO 


A 


1515 


0? 


005P8 


2^280100 


A 


1516 


Op 


005P9 


662An000 


A 


1517 


OP 


005PA 


331^0000 


X 


1518 


OP 


OOSPB 


663An001 


A 


1519 


0? 


oospc 


20400020 


A 


15gn 


OP 


OOSgD 


ESoooDOB 


A 


15P1 


op 


005PE 


2i28O00O 


A 


152P 


OP 


0052F 


6^2Anooo 


A 


15?3 


OP 


0o53o 


E**OonooB 


A 



CMR73 



CMP75 





RDWRT 


BEZ 


CMP70 


B 


CMP5 


LW#R5 


CeWeRDiR7 


SW#R4 


R6 


BGEZ 


CHP75 


LliR3 





SLD«Rp 


0*P4 


Ai^M#R2 


0*R5 


mTw#i 


C6W0RDJR7 


AWMjRs 


l^RS 


AIjR4 


3P 


B 


♦SR4 


SLSjRp 


0jR4 


AWM#RP 


0*R5 


B 


«SR4 



Ki8 

YES • EXIT 

GET BUFFER POINTER 



61 



BYTE WILL FIT IN CURRENT C» WSRD 

ADJUST NUMBER 8F BITS WHICH WILL FIT 
ENTER IN CQ WeRD 

PUT ©VFRf'Le^^ BITS IN NEXT W8RD 
NUMBER 8F BITS LEFT IN C^ W8RD 
EXIT 

p8siti8n byte 
Enter tn C8 w8rd 

EXIT 



Wol 



17J4 


9 5 


SEP 08* 


»75 




1524 










1525 










1526 










1527 


Op 


00531 


2^200000 


N 


152« 


OP 


00532 


30200007 


A 


1529 


02 


00533 


2^300022 


A 


1530 


02 


00534 


32#0n6AB 




1531 


02 


00535 


Bl46n002 


A 


153? 


02 


00536 


6330OI538 




1533 


02 


00537 


6#3cn535 




1534 










1535 


02 


00538 


2^300002 


A 


1536 


02 


00539 


2U30O003 


A 


1537 


02 


0053A 


FU6nooa 


A 


1538 


02 


00538 


693on53D 




1539 


02 


0053C 


6^30nS3A 




1540 


02 


Q053D 


2U30n001 


A 


1541 


02 


0053E 


3S3EnOOO 


X 


1542 


02 


O0S3F 


E^OonoOB 


A 


1543 










1544 


02 


00540 


3«2Eno04 


N 


1545 


02 


00541 


323Eno05 


N 


1546 


OP 


00542 


2Q3rFFFF 


A 


1547 


02 


00543 


2^400040 


A 


1548 


02 


00544 


6»00n53A 





PAGE 



RDWPT 



66 



# SUBReUTlNE SFTE9D FINOS C8LUWN 

# re TRUE BYTE CaUNTt 



SETESD 



SRS5 



SETEBDR 



LI/R2 

AW«R2 

LI#R3 

LW#R4 

Cl«jR4 

BNE 

BDRiR3 

SLS#R3 

AI#R3 

CBiR4 

BNE 

BDRjRs 

AliR3 

STWjR3 

B 

LW#R2 
LW#R3 

Al#R3 
LliR4 

B 



prtbuf 

R7 

MAXClMN/4^1 

• f f 
«R2#R3 

••2 

2 

3 

♦R2#R3 

*^2 

«»2 

1 

RECSI2EjR7 

#SR4 

RDFPT*4iR7 
WRTFPT*5*R7 

• 1 
Xt40» 

SRS5 



SF LAST NSNpBLANK AND SETS RECSI^E 
MAKE GRBSS C9MPARtS9N 



REVERT T© BYTE INqEXINq 
ITERATE THR6UGH bVTES 8F W©RD 



SAVE TRUE REC0RD SUE 
EXIT 

BUFFER ADDRESS 

SIZE 

ADJUST FSR INDEXING 

Ge STRIP TRAILING BLANKS 



Hoi 171 
1R49 
1550 
1551 
1?55? 
1553 
1554 

1555 

1556 

1557 

155S 
155Q 

1560 
1561 

156;? 

1563 
1564 

1565 
1566 
1567 

1568 
1569 
1570 

1571 
157? 
1573 
1574 

1575 
1576 
1577 

1578 

1579 

1580 

1581 
158? 
1583 
1584 
1585 



49 SEP 08# '75 



PAGE 



RDWRT 



67 



Op 00545 
OP 00546 
OP 00547 
0? 00548 
OP 00549 
OP 0054A 
OP C054B 
OP 0054C 
0? 0054D 
OP 0054E 
0? 0054F 

OP 00550 
OP 00551 

Op 00552 
OP 00553 
OP 00554 
Op 00555 
OP 00556 
OP 00557 
0? 00558 
Op 00559 
OP 0055A 
0? 0055B 
OP 0055C 
OP OOSSD 
OP 0055E 
OP 0055F 

OP 00560 
OP 00561 
OP 0056P 
OP 00563 
OP 00564 
OP 00565 



0820noBn A 

8»l0O007 A 
20900007 A 
2^900070 A 
28500003 A 
22EOO00O N 
3UE0OO07 A 
F&9AO00C A 
2^500001 A 
F31AOQ0E A 
21900004 A 
682C0560 
F25OOO0F A 
3*2200009 A 

2U2FrFFF A 
FH64000F A 
3U500OO6 A 
6^200554 
286cn00P A 
F55CO00E A 
32IEOOOA N 
201FFFFD A 
65^10055F 
6S»2oo56C 
6A8005DE 
6AB0O605 
O^IEOOOO X 



♦ SUBReUTlNE WRTTFCe APPENDS C0NTR9L 

# C6MPRrSSED RrcaRD. 



2QEcnO01 
35EEO00O 
22400001 
226CO000 
2QEFFFFF 
D^68o00E 



WRITEC© 



wRces 

# 

wRceio 



LCI 

PSMiRl 
AliSRp 

SLSjSR? 
LIjRS 

LI#03 
AW#D3 
STBiSR?> 

LliRS 

MTBjI 

CliSR? 

BLE 

LBiRS 

LNiRp 
aIjRP 
LBjR6 
aWjRs 

BDR#RP 

L.IiR6 

STBiRB 

LWjRi 

AtiRt 

BL2 
BCiZ 

BALjSR4 
BAL#SR4 
CALIM 

AIj03 

LI#R4 
LI#R6 
AIjDs 
StHjR6 



11 

♦r7 

7 

*3 
3 

PRTBUF 
R7 

*03#R5 

1 

#D3#R5 
4 

WRC910 
♦D3 

SR2 

• I 

♦D3#RP 

R6 

ft«2 

2 

♦D3iR6 

TaARQ*i0jR7 

WRces 
wRcaso 

SEQBUT 

SEQ^UTB 

WRTFPT#R7 



C8W8RDjR7 

1 



•D3#R4 



iNFa. re buffer and writes 

C8MPUTF N0. 8F BYTES 
FR9M BIT CeUNT 

GET BUFFER LQCATleN 

PUT IN BUFFER 

INCREMENT SEQUENCF 

BYTE CNT N8T QR 4 • DdNT WRITE 



GET ALL BYTES 
FSRM CHECKSUM 



PUT IN BUFFER 

SEQUENCE aPTiaN SPECIFIED 

NLN BR NCS ©R N8N|: 

LN 

PREPARE SEQUENCE INFSRMATieN 

SEQUENCE REC8RD 

WRITE RECeRD 



INITIALIZE POINTER 



HOI 



17S 
1586 
1587 
1588 
1589 
l59o 
1591 
159? 
1593 
159^ 
159B 
1596 
1597 
1598 
1599 

16C0 
1601 

16C? 



49 rEP 08i 
0? 00566 
OP 00567 
OP 00568 
OP 00569 
OP 0056A 
OP 0056B 
OP 0056C 
OP 0056D 

OP oo56E: 

OP 0056?" 



OP 
OP 

OP 
OP 
OP 

CP 



00570 
00571 
00572 
00S73 
00^74 

00575 



'75 

284onOlD A 
B&68000E A 
6^400567 
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S^lOnoPD A 
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OP 
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A 




OP 
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A 




OP 
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OP 
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A 




OP 
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00583 




D6D7n8D9 
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8 


i^ 
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IP 


A 


OP oosaB 
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A 


OP 0058B 
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A 
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2 
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A 


OP 0058B 
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A 
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A 
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1 
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A 


OP 0058C 


2 
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A 


OP 0058C 
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A 
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A 
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A 
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A 
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A 


OP 00591 
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OOSAE 
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OOSBO 
OOSBi 

005B2 

00583 

00SB4 
005BS 
005B6 
005B7 
005B8 
005B9 
005BA 
OoSBB 
OO^BC 
005BD 
0058E 
005BF 

on5co 

OOBCI 
005C2 
OOSC3 
OO5C4 
005C5 
005C6 

005C7 
Q05C8 
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OOSCA 
OOSCB 
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02200070 A 
8A50O007 A 
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WERE TABS SPECIFIED 

Ne 
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INCREMENT T9 NEXT CHAR IN SUFFER 

DETERMINE LAST CHaR PBSITIBN 

CBMPUTF NUMBER ©F BLANKS T0 INSERT 

N6NE 

INCREMENT TB NEW LAST CHAR 

SET NEW REC8RD SIZE 

GET LAST CHAR BF RECBRO 

BLANK THIS CHAR Jn REC9R0 
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INC CHAR P0SITIBN TB LAST M8VE0 
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1713 
1714 
171B 
1716 
1717 
1718 
1719 

1720 
1721 
1722 
1723 



49 REP 0S# «75 



OP 005DE 
02 005DF 
02 OOSEO 
02 OOSEI 
02 005E2 
02 005E3 
02 00SE4 
02 005E5 
02 00SE6 
02 00SE7 
02 005E8 
02 C0SE9 
02 COSEA 
02 OOSEB 
02 OOSEC 
02 OOSED 
02 OOSEE 
02 OOSEF 
02 OOSFQ 
02 OOSFi 

02 OOSFS 
02 OOSF3 
02 00SF4 
02 005F5 
02 005^^6 
02 OO5F7 

02 005F8 
02 005F9 
02 OOSPA 

02 Q05FB 

02 QOSFC 
02 005FD 

02 OOSFE 
02 005FF 



08200070 A 
8»5onO07 A 
3HIE0OOC N 
SllEooOE N 
6**2on?!EA 
SiglEoooB N 
3^2EnoOO X 
4B2205FB 
#^220600 
3^2EO00O X 
28100000 A 
39lEnOOC N 
6AB00OOO X 
4^300600 
3S3En001 N 
2U4FrFFC A 
6«200SF6 
2230OO03 A 
2S5onOOO N 
3Q5ono07 A 
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FSI600OS A 
203FFFFF A 
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38lEoO00 ^ 
66lEn00C N 

0820OO70 A 
8A50O007 A 
E^OOOOOB A 
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F^-OOOOOO A 
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F^FFFFOO A 
FFFFFFFF A 
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STWiR? 

LIjRi 

STWjRi 

BAL#SR4 

eR^Rs 

STWjR3 
AI4R4 
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LIjR3 
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LB^Rt 

STB#Ri 

AIjR3 

BDRjR4 
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•4 
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R7 
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1754 
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00619 
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STWjRo 
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AWjSRi 
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Ll#Rl 

LliR3 
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LNiR? 
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LBiR4 
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AIjR4 
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AIjRI 
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LIjRi 
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GET C8NVERTE0 VAUUE 
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8841 


A 




OP 
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A 




0? 


00630 




88oB 


A 




0? 


00630 


2 


8807 


A 




0? 


00631 




8003 


A 




0? 


00631 


2 


8^01 


A 


1771 


OP 


00632 




8^81 


A 




CP 


00632 


2 


8#4i 


A 




CP 


00633 




8^21 


A 




CP 


00633 


2 


8#11 


A 




c? 


00634 




8409 


A 




c? 


00634 


2 


8405 


A 


177? 


CP 


00635 




8#03 


A 




0? 


0063B 


2 


8903 


A 




0? 


00636 




8^83 


A 




0? 


00636 


2 


8443 


A 




OP 


00637 




8423 


A 




OP 


00637 


2 


8413 


A 


177:^ 


OP 


00638 




84oB 


A 




OP 


00638 


2 


8407 


A 




OP 


00639 




8/03 


A 




OP 


00639 


2 


8301 


A 




OP 


0063A 




8281 


A 



CCTA8 



PAQi: 

rQU 

DATA*? 



RDWRT 



X»8B0'^f#Xfg9ni f4Xt»88lf jXf8841»jX»8«2itjXf88ll» 



79 



DATA*? Xf 8809 ?iXf880S»#X 18803 ♦'Xf8903»*Xf8883»*Xi8843» 



DATA*? X»8823f jXi88l3f*x»880Bf*Xt8807»*X»8D03»#X»8501^ 



DATA*? Xf848! f^Xi 8441 »* Xf 8421 »* X i 8411 ' *X f 8409 ♦ *X »8405 » 



DATA*? X»8403»iX'8503f*X»8483»*X»8443»iX'8423f#X»8413» 



DATA*? X »840B f #X t 8407 f*X' 8703 »#X' 8301 »*X'8?81»*X»8241» 



Nni 



17U9 



1774 



1775 



177A 



1777 



177R 



1779 



C 



OP 



REP OSj t 
? 0063A 2 
Q063B 

0063B H 
0063C 
0063C a 
0063D 
0063D 2 
0063E 
0063E 3 
OO63F 
0063^ H 
00640 

00640 2 
00641 

00641 2 
00642 

00642 2 
00643 

00643 2 
00644 

00644 2 
00645 

00645 2 
00646 

00646 2 
00647 
00647 
00648 
00648 
00649 
00649 
OO64A 
0064A 
00648 
00648 
0064C 
OO64C 



2 



75 




8241 


A 


8821 


A 


8211 


A 


8209 


A 


8805 


A 


8203 


A 


8i03 


A 


8283 


A 


8243 


A 


8223 


A 


8213 


A 


820B 


A 


8207 


A 


8»*03 


A 


8101 


A 


8081 


A 


8041 


A 


8021 


A 


8011 


A 


8009 


A 


8005 


A 


8003 


A 


8103 


A 


8083 


A 


8043 


A 


8023 


A 


8013 


A 


800B 


A 


8007 


A 


0000 


A 


8»01 


A 


8A81 


A 


8A41 


A 


8A21 


A 


8A11 


A 


8Ao9 


A 


8A0S 


A 



ROWRT 80 

DATAj? Xi822tf#Xf82l1 f#Xfli809f*Xf8205»*Xt8203»^X»^303» 



DATAig Xi8283f jX»8243tjX»i223fjXf82l3»*Xt890Bf#X»^207» 



DATA4? Xi8F03'jX»8lO1 SXt||081»jXt8041'#X»8021^jX»80U» 



DATA J a Xi8009i#x»800B»JX»8003«*X»8l03»iX»8o83f#x»8043f 



DATAjP X » 8021 f#Xf 8013 »jX»800BtjX» 8007 »#X»0O0O»#X»8Bo1» 



DATA* 9 Xf8A8l t#Xf8A4ifiXt8A2H#Xf8All»jXt8A09»jXtiA05» 



Nnl 17U9 

1780 OP 

a? 

OP 
0? 
OP 

1781 OP 

0? 
OP 
OP 
OP 
OP 
178? OP 

OP 
OP 
OP 
OP 
OP 

1783 OP 
OP 
OP 
OP 
OP 
OP 

1784 OP 

OP 
OP 
OP 
OP 
OP 

1785 OP 

OP 
OP 

OP 
OP 
0? 

1786 OP 



<5EP 08i ' 
00640 
Q064D 2 
0064E 
0064E 2 
Q064F 

006 4F 2 
00650 

00650 2 
00651 

00651 2 
00652 

00652 2 
00653 

00653 2 
00654 

00654 2 
00655 

00655 2 
00656 

00656 2 
00657 

00657 2 
00658 

00658 2 
00659 

00659 2 
0065A 
0065A 2 
00658 
0065B 2 
0065C 

OO65C 2 
O065D 

0065D 2 
0065E 
0065E 2 
0065F 



75 

8^03 

8»0P 

8U82 

0000 

0«22 

0000 
O^QA 

0^06 
0^00 
8U0I 
8t8l 
8(»4i 
8^21 
8tli 
8fc09 
8^05 
8t03 
S^Ot 
8482 

04#2 
0^22 
OQOO 
0000 
8#06 
0#00 
0000 
8681 
8641 
8621 
8611 
8609 

8605 
8603 
8302 
8^00 
OOOC 
0222 



ROWRT 8l 

DATAjP X»8A03»#X»890P'*Xt888pf#X»0000»#X»082?tj)(»QQOO» 



DATAjP Xto80A»#Xto8o6»#X»o800'*X»8Doi»jX»8C8l»iXt8C41» 



DATA J p X 1 8C2 1 f # X I 8C 1 1 1 1 X f 8C09 f -• X f 8C0S UXi 8C03 f # X f 85o2 * 



DATA J p X»848Pt#X»044PtjX'042Pf jX»0000»-»X»0OO0t#X'S406t 



DATAjp X»0400»#X»OOOOf JX»8681t#X»8641»*X»8^21»#X»8611» 



DATAjP Xf 8609 tfX« 8605* #X'8603»#X» 8302 »iX*8C00»#X ♦0000^ 



DATAiP X»022Pf#X«82lP»iX'020A»#x»8206f JX»8E0O»iX»8F0l» 



MCI 17U9 



1787 



178« 



1789 



1790 



1791 



179? 



0? 
C3J? 
0? 

0? 
0? 
0? 

OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 

OP 
OP 

OP 

OP 

OP 
OP 
OP 



SEP 08# 
0065F 2 

00660 

00660 2 
00661 

00661 2 
00662 

00662 2 
00663 

00663 2 
00664 

00664 2 
00665 
Q066S 2 
00666 

00666 2 
00667 

00667 2 
00668 

00668 2 
00669 

00669 2 
0066A 
Q066A 8 
0066B 
0066B 2 
0066C 
0066C 2 
0066D 
0066D 2 
Q066E 

0066E 2 
0066F 

0066F 2 
00670 

00670 2 
00671 

00671 2 



'75 




8212 


A 


020A 


A 


8206 


A 


8€00 


A 


81-01 


A 


8l8l 


A 


8l4i 


A 


8121 


A 


8&11 


A 


8fe09 


A 


8«t05 


A 


8i03 


A 


8102 


A 


0Q82 


A 


0U42 


A 


0022 


A 


0012 


A 


OPOA 


A 


8006 


A 


8«02 


A 


8»00 


A 


8A80 


A 


8A40 


A 


8A20 


A 


8Alo 


A 


8A08 


A 


8A04 


A 


8A02 


A 


8Aoi 


A 


8A82 


A 


8A4g 


A 


8A2a 


A 


8A12 


A 


8A0A 


A 


8^06 


A 


8002 


A 


8000 


A 



ROWRT 



B'i 



DATAjJ? XfSESl t/XfgE41 f jXf8E2i » jXf 8El 1 » i X»8F09» iX f 8EoS» 



DATA J 9 X»8E03fiX»8l02»jX»0082f#X'0042tjX'0022»#X'OOl2' 



DATA#2 XfOOOAi/Xf8006»jX»»B02»jXf8BOO'*X»8A80'#X»8A40' 



DATAj2 X»8A2n»#X»8AlO«*X»8A08UX»8A04'#X'8A0P»*X»8A0l» 



DATAj2 Xf8A8ptiXf8A4?»*X»8A22t#Xf8Al2»jX»8A0A»#X'8A06' 



DATAj? Xt8D0Pf#X»aDoo»jX»8C80»#X»SC40»#X»8C20»#X'8Cl0» 



Nni 



17U9 



1793 



1794 



179R 



1796 



1797 



1798 



0? 

n? 

0? 
OP 
0? 

0? 
0? 
OP 
0? 
0? 

(.)? 

OP 
0? 
OJ? 
0? 

0? 
OP 
OP 
OP 

OP 
OP 

OP 
OP 
OP 
OP 
0? 
OP 
0? 
OP 
OP 
OP 
OP 
OP 

OP 
OP 
OP 
OP 



SEP 08j 
00672 

00672 2 
00673 

00673 H 
00674 

00674 2 
00675 

00675 2 
00676 

00676 2 
00677 

00677 ^ 
00678 

00678 2 
00679 

00679 2 
0067A 
0067A 2 
0Q67B 
0067© 2 
C067C 
0067C 2 
OO67D 
0067D 2 
0067E 
0067E 2 
0067F 
0067F H 
00680 

00680 H 
OO68I 

00681 2 
00682 

00682 2 
00683 

00683 2 
00684 



175 

8C80 
8^40 

8t.2o 
8^10 
8vo8 

8^04 
8COP 
8C01 
8^8p 
8t-4p 
8C22 

8toA 
8^06 

8702 
8700 
8680 

8640 
8620 
8610 
8608 
8604 
8602 
8601 
8682 
8642 
8622 
8612 
86OA 
8606 
81*02 
8^00 
8t8o 
8k40 
8^20 
8^5-10 
8IO8 



RDWRT 



DATA#;i Xt8C0«!^Xf8Co4»jXfRC0P»'Xf8C01''Xt8C8p»iXi8C42» 



83 



DATA'P X»8C2Pl^X»8ClP»*X»8C0A»^X'8C06»/X'870P»iX'8700' 



DATAjg X«868otiX»864O»JX»R620»^X'86l0»iX'8608»ix'8604' 



DATAj2 Xf860Pt#Xf 8601 »jXf«68?»iXf 8642 '^X»862P»#Xt86l2' 



DATAjP X»860Af#X»8606tjx»»FQP»jX'8Foo'iX'*P80»#X»SE<^0' 



DATA J 2 X»8E2O'#X»8ElO'fX»8E:08»#X»8E0#»#X»«F0P'iX*8E0l» 



Hni 



17Uf 



1799 



1800 



1B01 



!80P 



I8c:^ 



1804 



OP 
OP 
OP 
0? 
OP 

c? 

OP 
OP 
OP 
OP 
0? 
OP 
OP 
OP 
0? 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
0? 
OP 
OP 

OP 
OP 

OP 
OP 
OP 
OP 
OP 
OP 
OP 



SEP 08# 

00684 2 
00685 

00685 2 
00686 
C0686 8 
00687 

00687 2 
00688 

00688 2 
00689 

00689 a 
0068A 
006aA 2 
0068B 
0068B 2 
C068C 
0068C 2 
0068D 
0068D 2 
0068E 
0068E 2 
0068F 
0068F 2 
00690 

00690 2 
00691 

00691 2 
0069P 

00692 2 
00693 

00693 2 
00694 

00694 2 
00695 

00695 2 
00696 

00696 2 



75 

8lt04 

8lOl 
8lt8p 

8^4S 
8l2g 

o*w 1 2 
8&0A 
8^06 
8A00 

os»oo 

0»80 
0i40 
0S20 
0810 
0*08 
0^04 
0«02 

0»01 
8A83 

8A43 
8A23 

8A13 
8A0B 
8A07 
8600 
05*00 
0480 
0440 
0420 
0410 
0408 
0404 
0^02 
0401 
8C83 
8^43 



RDWRT 



DATAjp Xf8E8pf#Xf8E4pt-»X»RE2Pi#Xf8El2»#X»8^0AiiXf8E06t 



84 



DATAjP Xf8A0O»/X»090Of jX»0880'jX'0840» jX» 08201 iX»0810» 



DATAj? Xf0808«iXf0804f#Xf080P'jXf08oiiiXi8A83»#Xt8A43» 



DATAip X»8A23f#X»8Al3»#X««AOBtjX'8A07»iX»*i600»#X'0500» 



DATAjP X»048O»jX'044O»#X»O4PO»jX»0410»jX»0408»#X»0404» 



DATAjP X»040Pf#X'0401 » jX' 8C83f jX » SC43» jX»8C23? #X »3C13 ' 



Nnl 17U9 



lacR 



180^ 



1807 



180R 



1809 



isin 



1811 



OP 
OP 
OP 
OP 

OP 

OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 

OP 
OP 

OP 
OP 
OP 
OP 
OP 
OP 

OP 
OP 
OP 
OP 
OP 
OP 
0? 
OP 
OP 

OP 
OP 
OP 

OP 
OP 
OP 



n£P 08# 
00697 

00697 2 
00698 

00698 8 
00699 

00699 2 
C069A 
0069A i 
0069B 
C0698 H 

0069C 
0069C 2 
00690 
0069D 2 
0069E 

0069E 2 
0069F 
0069F 2 
006A0 
C06A0 2 
006A1 

006A1 2 
006Ai? 
006Ag 2 
006A3 
006A3 2 
006A4 
006A4 2 
006A5 
006AS 2 
006A6 
006A6 2 
006A7 
006A7 2 
006A8 
006A8 2 



•75 




8^23 


A 


8€l3 


A 


8t0B 


A 


8^07 


A 


82as 


A 


8701 


A 


0880 


A 


02#0 


A 


0220 


A 


0210 


A 


0208 


A 


0804 


A 


0202 


A 


0201 


A 


8683 


A 


8643 


A 


8623 


A 


8613 


A 


860B 


A 


8607 


A 


0200 


A 


OlOO 


A 


0080 


A 


00<f0 


A 


0020 


A 


0010 


A 


OOOi 


A 


0004 


A 


0002 


A 


0001 


A 


8183 


A 


8t43 


A 


8fe23 


A 


8fel3 


A 


8i;0B 


A 


8^07 


A 



ROWRT 85 

DATA J p Xi8C0BfiXf8C07f jXf«P8pf jXi8701»#i<tOP80' jXf0240' 



DATAjp Xi0220«#X»02lOt#X'OP08»#X»C204'#X'OPOPtjX'020l» 



DATAiP X»S683»#Xi8643»iX»a623»jXt86l3»jXt8i;,oBf jX»8607' 



DATAj P X f 0200 » # X I OlOO » J X 1 0080 » j X t 0040 ' # X 1 0020 ♦ * X » 0010 » 



D ATAj P X » 0008 t J X ' 0004 t / x ♦ 000? t # X » 0001 ' ^ X ♦ 8P83 1 # x » 8E43 » 



DATAj p X»8E23f#X»8El3ijX»«£0Btjx'8E07» 



FKD 



Noi 17U9 SEP 08^ 
OP 0n6A5 
a? 006AA 
OP 006A8 
0? 006AC 
0? 006AD 
0? 006AE 
C5? 006AF 

o;? 006B0 
0? 006B1 

OP Cn6B2 

OP 006B3 
OP 0068^ 

C5? 00685 
0? QO6B6 
OP OOfeBT 
OP 006Bg 
OP OO6B9 
OP OO6BA 
OP OO6BB 
0? QO68C 
OP 006BD 



I 75 

F^OOnnSn A 

0Q98«J67F A 

40404040 A 

OU404040 A 

OQFFftOOO A 

OOFFFFFF A 

4Q60400Q A 

0U00F04B A 

FUF0F040 A 

0040^040 A 

O^oonooo A 

OQ200000 A 

ooosnooo A 

OOionooo A 

3*iFFn000 A 

QUoonciF A 

OQOOOOFF A 

I8FFFFFF A 

OQOOnoSF A 

o3oonooo A 

OOOonFFF A 



ROWRT 



86 



CftNTRBL SiXTieN SUf^hARYj f^x OOOOO ^T 



02 on68r PT 1 



MOl 17U9 SEP 08# '75 

t SVM8BL VALUES 

AN[3TBL/02 005FB 
BlK?/Q? 002«0 
CI9F/00000003 

CMF»ln/0S QO^Dl 
CMPI4/02 004EB 
CMF»?«55/02 OO^FA 

CHF'73/02 00524 
CNr><T8/OCOOOOC4f 

CS/OP 00320 
CvTl/02 OO2A5 
DEC:ftMPR/o3 OOikSfe 
0gC'^r\/02 00#7D 
DEC;47/02 00^95 
D£C:fe7/o2 00^B7 

Di/onoooooc 
£ic:v8L/og ooagg 

PQDl/OP 001^# 
E6rRR/02 00208 
P:eF'3/02 OOl^A 
E:©F7/0? COIWD 
FPTr"BD/02 002iE 
T9r.PR3/0P OOlOF 
LI^^FNUM/02 0059£ 
NCCMK/02 00300 
NCC4/02 00308 
PFlL/o? 00268 
PRINTl/02 OOPaC 
RCFRR/02 QO^^F 
RCS'n?5/02 OO^IJ? 
RC25P/02 00^26 
RQViRTC8/02 00367 
rEADIA/O? 00375 
READ13/02 003FB 

readi7/o2 oooae 
readp/02 ooocd 



ANSCVT/02 0n28A 
BRCmK/02 OO'aaE 
CE8L/OC000002 
CMPll/02 004D# 
CMPlS/02 004E9 
CHP5/02 004CC 
CMP67/02 OOROD 
CMP7S/02 0052E 
C8BTaTAL/000003^C 
CS$t/02 003P7 
CVT2/02 002AF 
DEClO/02 0046A 
0EC3S/02 00483 
D^C50/02 0049A 
DEC70/02 004B8 
D2/0000000D 
FlERR/02 00108 
E8D2/02 OOUO 
E9F1/02 0017E 
E0F4/O2 0019D 
E9F8/02 OOIB5 
FPTREL/02 Q026A 
lRDFPT/02 0024F 
LIKE30/02 0o5A7 
NCCNKX/02 00309 
NCS/OP 0031R 
PFILE8/02 00231 
PRINT2/02 O024I 
RCERHl/02 00456 
RC906/02 00417 
PC290/02 00421 
READCeMP/02 00401, 
rEADIO/02 00385 
READ14/02 00073 
READI7A/O2 OOOB9 

READ20/02 003A6 



RDWRT 

BINVAL/OP 003FF 
BRKMfiG/OP 0035F 
CITA8/02 00R7B 

CMP12/O8 004DC 
CMP17/02 OO4EF 

CMPllO/08 004FC 
CMP6ft/02 QOSOF 
CNBCl/00000005 
C8MPRESS/0g OO4BE 
CS2/0P C032B 
CVT4/02 0029F 
DEClS/O? 00473 
DEC4O/O8 OO48D 
DECAO/02 0049E 
DEC75/02 004BA 
D3/OOO00O0E 
E8CV6L/0P 0022A 
EeD3/Q2 00171 
EeFli/02 0018A 
F9F5/02 OOlAl 
E8F9/02 OOIB7 
GETPQ/02 00841^ 
!WRTFPT/02 00P56 
IH/QP 00332 
NCCl/02 00313 
NCSl/02 0031C 
PREC/02 00233 
PR9MPT/0P 003iD 
RCERR2/02 004S9 
RC207/02 0041F 
RDABN/Of 0014F 
READ0/C2 0006A 
rEAdU/OP 00318 
REA015/0? 003BB 
REA018/0P OO39F 

rEAqPI/OP 003AC 



87 



BLKTIST/02 00260 
CBLANK/O00n0007 
CLeSlP/02 O022E 

CMP13/02 004PE 
CMP20/02 004^7 
CMP62/02 004Fr 
CMP70y02 00514 
CNBC6B/OOOOOOO6 
C8TA»/02 00586 
CVTO/02 00294 
DECCVT/02 0029A 
OEC20/02 00476 
DEC45/02 00492 
DEC65/02 004A8 
OEvEHR/oa o0iD6 
D4/OO00OOOF 
E8CyeL2/02 0022C 
E0D4/O2 0017A 
E9F2/02 OOI8P 
EBF6/02 001B3 
EeR/02 OOICI 
I8ERK1/Q2 00203 
KEYX/02 0023A 
MAXClMN/OOOOOOSC 
NCe2/02 003li 

©RTBl/02 00600 
PREC2/02 00235 
PR9MPTR/02 003SE 
RC200/02 00406 
RC81Q/02 00425 
ROREPLY/02 00354 
REaDI/OP 0006B 
READX2/02 O03F9 
READU/02 00019 
READJ9/02 OO3A3 

READ2P/02 003AF 



Hoi 17149 SEP 08j '75 
RE^Dp3/02 OOOCl 
READP6A/02 0008» 
READ'S/02 OOOAB 
RE/aH/02 CC069 
READ43/0^ 00055 
REAn7/02 003BE 
READ«4/0? 003DE 
READ9/0g 00064 
RG/onOOOOOO 
R4/On000004 
R7/00000007 
SECmUT/Og 005DE 
SEQin0/0? 0060F 
SETPe/oS 00248 

SNlFT/02 OO^lP 
SR3/nOO000OA 

TAE!iP/02 005C3 
TAgM<5/02 00^04 
ULBLCHK/02 OOIE6 
VHBf/Oi 002C3 
UKBV/0?> OOPf'B 

wcrRR/o2 00S73 

WRC;f^PO/02 00569 
WRlT|r$5B/02 OOl^E 
WRITF3/02 OOOEC 
WRlt(r7/02 00146 
WRTMRC3/02 0034*^" 

• EXTERNAL DEFINITIONS 

CCTAB/02 00*25 

• PRIMARY REFERENCES 

ansblk attrb 
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